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physically modifies the label's offset to center it in the window (as opposed to the viewport). 
In particular, method centerLabel is automatically invoked whenever the label or window 
is changed. By choosing the window so that the origin is 0@0, we are ensuring that the 
offset needed to center it is also O@0. In practice, it shouldn't matter where the window is 
positioned — it's the viewport that specifies where the view is to be displayed. In an earlier 
version, we used to set the window to the viewport. This made it impossible to use the same 
off-form because each switch view wanted a different offset to be associated with the label. 
Each of the six switches had to have its own copy. Even with copies, other problems 
appeared — the labels still didn't display as they should. 


query window 


queryUser 
“Asks the user for size and toppings. Flash if an existing window is already open." 
window isNil ifFalse: [Display flash: Display boundingBox. Tself]. 
oldSize < size. oldToppings < toppings deepCopy. "in case of cancel" 
window < self queryWindow. 
window controller open 


queryWindow 
“Constructs and returns a standard system view with 3 size switches, 3 topping 
switches, an accept, and a cancel switch. Only one size is permitted; an arbitrary 
number of topping switches are permitted.” 
| whiteColor noBorder noArguments topViewSize topView picture layout 
sizeSymbol selectorArguments xStart toppingSymbol acceptPicture cancelPicture 
pictureExtent | 


“Common information.” 
whiteColor e Form white. 
noBorder < 0. 
noArguments e #(). 


284 Inside Smalltalk 


topViewSize <— 300@200. 
topView + StandardSystemView new 
label: ‘Pizza Choices'; 
minimumSize: topViewSize; maximumSize: topViewSize; 
insideColor: whiteColor; borderWidth: 1; 
window: (0@0 corner: topViewSize); 
yourself. 


“Row 1.” 

picture < 'size:' asParagraph. 

layout — 20@25 extent: picture extent. 

topView addSubView: (DisplayTextView new 
model: picture; 
controller: NoController new; 
insideColor: whiteColor; borderWidth: noBorder; 
window: layout viewport: layout; 
yourself). 


“Row 2." 

1 to: 3 do: [:index | 
sizeSymbol <— #(small medium large) at: index. 
selectorArguments < Array with: sizeSymbol. 
xStart — (index-1)*90+40. 


layout — xStart@50 extent: OfffForm extent. 
topView addSubView: ((SwitchView new 
model: self; 
label: OffForm; 
selector: #isSize:; arguments: selectorArguments; 
insideColor: whiteColor; borderWidth: noBorder; 
window: Offform boundingBox viewport: layout; 
highlightForm: OnForm; 
yourself) controller 
selector: #makeSize:; arguments: selectorArguments; view). 


picture e sizeSymbo! asParagraph. 
layout + xStart+20@50 extent: picture extent. 
topView addSubView: (DisplayTextView new 
model: picture; 
controller: NoController new; 
insideColor: whiteColor; borderWidth: noBorder; 
window: layout viewport: layout; 
yourself)]. 


“Row 3." 

picture + ‘toppings:’ asParagraph. 

layout — 20@75 extent: picture extent. 

topView addSubView: (DisplayTextView new 
model: picture; 
controller: NoController new; 
insideColor: whiteColor; borderWidth: noBorder; 
window: layout viewport: layout; 
yourself). 
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“Row 4." 

1 to: 3 do: [:index | 
toppingSymbol e #(cheese pepperoni onion) at: index. 
selectorArguments <— Array with: toppingSymbol. 
xStart e (index-1)*90+40. 


layout <— xStart@100 extent: OffForm extent. 
topView addSubView: ((SwitchView new 
model: self; label: OffForm; 
selector: #toppingContains:; arguments: selectorArguments; 
insideColor: whiteColor; borderWidth: noBorder; 
window: OffForm boundingBox viewport: layout; 
highlightForm: OnForm; 
yourself) controller 
selector: #toppingAddOrRemove:; arguments: selectorArguments; view). 


picture <— toppingSymbol asParagraph. 

layout <— xStart+20@100 extent: picture extent. 

topView addSubView: (DisplayTextView new 
model: picture; controller: NoController new; 
insideColor: whiteColor; borderWidth: noBorder; 
window: layout viewport: layout; 
yourself)]. 


“Eliminate destructive modification to switch labels caused by automatic 
centerLabel.” 
OffForm offset: 0@0. 


“Row 5." 

acceptPicture <— ‘accept’ asParagraph. 

cancelPicture < 'cancel' asParagraph. 

pictureExtent e (acceptPicture extent max: cancelPicture extent) + (8@8). 


layout e 80@150 extent: pictureExtent. 
topView addSubView: ((SwitchView new 
model: self; label: acceptPicture; 
selector: #isNil; arguments: noArguments; 
insideColor: whiteColor; borderWidth: 1; 
window: layout viewport: layout; 
yourself) controller 
selector: #acceptPizzaChoices; arguments: noArguments; view). 


layout — 175@150 extent: pictureExtent. 
topView addSubView: ((SwitchView new 
model: self; label: canceiPicture; 
selector: #isNil; arguments: noArguments; 
insideColor: whiteColor; 
borderWidth: 1; 
window: layout viewport: layout; 
yourself) controller 
selector: #cancelPizzaChoices; arguments: noArguments; view). 


"Done." 
TropView 
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Consider method makeSize:, which is executed whenever a size switch is pressed. 
More specifically, if the ‘large’ switch is depressed, makeSize: is executed with aSymbol 
set to #large. The ‘self changed: #isSize:’ message causes all the size switches to update 
themselves. The ‘small’ switch controller will send the ‘isSize: #small’ message to the 
model and get back false; similarly for the ‘medium’ switch controller. On the other hand, 
the ‘large’ switch controller will send the ‘isSize: #large’ message to the model and get back 
true. Pressing the same switch a second time will have no visual effect because size is 
unchanged — the ‘self changed: #isSize:’ message in this case causes all the size switches 
to update themselves to what they used to be. 


Methods toppingContains: and toppingAddOrRemove: respectively play the same 
role as isSize: and makeSize: above. However, method toppingAddOrRemove: does not 
behave the same each time a toppings switch is pressed. The first time the ‘cheese’ switch is 
pressed, #cheese is added to the instance. The next time it is pressed, #cheese is removed. 
The third time, #cheese is added, and the fourth, #cheese is removed, and so on. Unlike the 
size switches that can only be turned on, the toppings switches can be turned on and off. 


query window support 


isSize: aSymbo! 
Tsize == aSymbol 


makeSize: aSymbol 
size e aSymbol. 
self changed: #isSize: 


toppingContains: aSymbol 
toppings includes: aSymbol 


toppingAddOrRemove: aSymbol 
(self toppingContains: aSymbol) 
iffrue: [toppings remove: aSymbo!] 
ifFalse: [toppings add: aSymbol]. 
self changed: #toppingContains: 
acceptPizzaChoices 
oldSize — oldToppings < nil. 


window controller closeAndUnschedule. 
window <~ nil 


cancalPizzaChoices 
size + oldSize. toppings + oldToppings. 
window controller cloeeAndUnschedule. 
window e nil 


5.4.4 Dealing with Switch Sizing 


Because switch views automatically translate and rescale when the top view is resized, it can 
be difficult to create a design that is pleasing for arbitrary window sizes. For example, a bank 
of vertically stacked switches resized as shown in Fig. 5.12 might not be a problem with 
textual labels. However, detailed forms can easily be deformed under arbitrary transfor- 
mations. For such pictorial labels, it might be better to insist that the labels not be scaled. 
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Figure 5.12 A vertical bank of switch windows. 


Note that all switch views are transformed in this way, although some labels such as 
strings, paragraphs, and display text do not get scaled. Independent of whether or not the 
label is scaled, the display box is, of course, always a scaled version of the window. What 
we might like to have, on the other hand, is a kind of switch view that prevents both the 
label and the window from being scaled. We will develop such an unscaled switch view in 
the next section. Such a view, however, does present a problem. If the window is unscaled, 
it can be positioned anywhere in the original display box. Precisely where it is located is an 
extra degree of freedom. 


One way of specifying this extra degree of freedom is to dictate that one of the window 
points be a fixed point. A fixed point is a window point that transforms exactly where the 
display transformation dictates. Other points cannot be transformed where the transformation 
dictates if the window is prevented from being scaled. This is illustrated in Fig. 5.13. 


Fixed point F; maps to F2. The rest of the window is translated to accommodate it. 


Figure 5.13 Fixed points observe the display transformation. 


288 Inside Smalltalk 


By specifying the window origin as the fixed point, we end up with the window 
translated to the top left corner of the original display box. Two other possibilities are 
shown in Fig. 5.14. 


Figure 5.14 Choosing different fixed points. 


Note that our design cannot simply translate the window to the new location. It must 
actually construct a new display transformation that has the required effect. This will ensure 
that the bounding box will be the same size as the window. 


The approach is to use the display transformation that is constructed in the normal way 
to find out where the fixed point is transformed. Then, assuming the window is to be a fixed: 
size, compute its new origin. This origin becomes the translation for a new display 
transformation with no scaling. As an aside, we also permit the highlight object to be 
optionally overlayed over the label. 


Class method example1 (see Fig. 5.15) demonstrates how we can use unscaled switch 
views to construct banks of vertical switches. We show five columns of identical switches. 
The gridding is provided to show where the display box would have resided had normal 
switch views been used instead of unscaled switch views. The first three use the top left 
corner, the center, and the bottom right corner of the respective windows as fixed points. The 
fourth is discussed specially below. The fifth uses standard switch views to provide a 
comparison. 


The only feature that we have not discussed is a technique to ensure that the resulting 
switch views touch, as in the fourth bank. The idea is to use the same fixed point for all 
windows; i.e., a virtual fixed point. In our example, the top left corner of the highest 
switch view is used as the fixed point. For the top window, this point is the origin. For the 
second window, it is one window's height above its origin. For the third window, it is two 
windows’ height above its own origin, and so on. 
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Unscaled Switches 


Figure 5.15 Ilustrating banks of switch windows. 


Class UnscaledSwitchView 


class name UnscaledSwitchView 

superclass SwitchView 

instance variable names fixedPoint overlayHighlightObject 

comment Permits unscaled switches to be used. Fixed points are 


window coordinates used to specify which part of the view 
is to be transformed unaltered. When the fixed point is 
inside the display object, self relative positioning is 
obtained. When it is outside, more global positioning permits 
rows or columns of views to be made adjacent. 


class methods 


example 
"“UnscaledSwitchView example” 


ltopView labels switches switchCount switchHeight switchOffsets banks 
topWindowoOrigin | 


topView <— StandardSystemView new 

label: 'Unscaled Switches'; insideColor: Form white; borderWidth: 2. 
labels — #{normal read execute) collect: [:aSymbol | Cursor perform: aSymboll. 
switches < labels collect: [:aLabel | Switch newOff]. switchCount e switches size. 
switchHeight e (1/switchCount) asFloat. 
switchOffsets e 0.0 to: 1.0 by: switchHeight. 
switchOffsets — switchOffsets 

copyFrom: 1 to: switchOffsets size-1. “remove last entry” 


“Create 5 vertical banks of switches: four unscaled and one scaled. Use the same 
switches and labels to create five columns differing only in position and scaling." 
banks < (1 to: 5) collect: [:banklindex | 
(1 to: switchCount) collect: [:aSwitchindex | 
(bankindex < 5 ifTrue: [UnscaledSwitchView] ifFalse: [SwitchView]) new 
model: {switches at: aSwitchIndex); 
label: (labels at: aSwitchIndex)]]. 
topView window: Display boundingBox. “helps eliminate roundoff errors" 
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banks with: #(0.0 0.2 0.4 0.6 0.8) do: [:aBank :anXOffset | 
aBank with: switchOffsets do: [:aSwitchView :aYOffset | 
topView 
addSubView: aSwitchView 
in: (anXOffset@aYOffset extent: 0.2@switchHeight) 
borderWidth: 1)]. 


"Now specify the fixed point for the first four banks." 
(banks at: 1) do: [:aSwitchView | aSwitchView fixTopLeftCorner]. 
(banks at: 2) do: [:aSwitchView | aSwitchView fixCenter]. 
(banks at: 3) do: [:aSwitchView | aSwitchView fixBottomRightCorner]. 
(banks at: 4) with: (0 to: switchCount-1) do: [:aSwitchView :aCount | 

topWindowOrigin e- aSwitchView window origin - 

(O@(aCount * aSwitchView window height)). 
aSwitchView fixPoint: topWindowOrigin]. 


“Add some additional transparent subviews just to provide the grid so we can 
better see what happened. Note that this will have to be removed since it prevents 
the switch views from getting control." 
0.0 to: 0.8 by: 0.2 do: {:anXOffset | 
switchOffsets do: [:aYOffset | 
topView 

addSubView: View new 

in: (anXOffset@aYOffset extent: 0.2@switchHeight) 

borderWidth: 1]]. 


topView controller open 
instance methods 
fixed point manipulation 


centerLabel 

“Override the inherited version that modifies the labe! by changing its offset." 

self fixCenter 
fixTopLeftCorner 

fixedPoint + self window origin. self unlock 
fixCenter 

fixedPoint <— self window center. self unlock 
fixBottomRightCorner 

fixedPoint <— self window corner. self unlock 
fixPoint: aPoint 

fixedPoint < aPoint. self unlock 


highlight object control 


doNotOverlayHighlightObject 
overlayHighlightObject < false 

overlayHighlightObject 
overlayHighlightObject < true 


transformation changes 


computeDisplayTransformation 
“First computes the standard display transformation and then uses it to determine 
where the fixed point should display. Then a new display transformation with no 
scaling is constructed that translates the label origin in such a way that the fixed 
point is at the position determined above.” 


| scaledTransformation sourceFixedPoint destinationFixedPoint sourceOrigin 
fixedPointOffset destinationOrigin | 
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scaledTransformation e super computeDisplayTransformation. 
sourceFixedPoint <fixedPoint isNil if True: [self window center] ifFalse: [fixedPointl. 
destinationFixedPoint + scaledTransformation applyTo: sourceFixedPoint. 


sourceOrigin + self window origin. 
fixedPointOffset e sourceFixedPoint - sourceOrigin. 
destinationOrigin e destinationFixedPoint - fixedPointOffset. 


TWindowingTransformation scale: nil translation: destinationOrigin 
displaying 


display 
“Displays the view taking into account the status of the model, the label, and the 
highlight object.” 


self displayBorder. 
complemented < self interrogateModel. “update the view's mode" 
highlightForm isNil 
if True: [ 
“If there is no highlight form, clear the inset display box, display the label 
(if there is one), and additionally highlight it if in complemented mode." 
self clearlnside. 
label isNil ifFalse: [ 
label 
displayOn: Display 
transformation: self displayTransformation 
clippingBox: self insetDisplayBox]. 
complemented ifTrue: [self highlight)] 
ifFalse: [ 
“If there is a highlight form, display it if in complemented mode either with 
or without the label under it (depending on the state of the view). 
Otherwise, just display the label.” 
complemented 
ifTrue: [ 
highlightForm 
displayOn: Display 
transformation: self displayTransformation 
clippingBox: self insetDisplayBox]. 
((complemented not) | 
(complemented & (overlayHighlightObject “could be nil” == true))) & 
(label ~= nil) ifTrue: [ 
label 
displayOn: Display 
transformation: self displayTransformation 
clippingBox: self insetDisplayBox 
rule: Form under 
mask: Form black] 


5.5 SWITCH-MENU WINDOWS 


Switch-menu windows provide pallets of switches that can be used as menus. Unlike menu 
facilities discussed in previous sections, these are not scrollable. For historical reasons, 
switch-menu windows are implemented with form-menu views and form-menu control- 
Jers. These classes were designed to support the implementation of the bit and form editors. 
They were not designed to be used publicly for implementing new editors. Nevertheless, they 
can be used for this purpose. 
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Class FormMenu View (see Fig. 5.16) provides essentially the same functionality as 
its superclass View. It does, however, provide a different default controller. Class 
FormMenuController is designed to permit switch subviews to be switched by pressing 
keyboard characters. They can also be switched in the standard way by depressing the mouse 
button in the appropriate switch view. 


Controller 


FormMenuController 


Figure 5.16 Switch-menu windows: The controller and view hierarchy. 


5.5.1 Creating Switch-Menu Windows 


Switch-menu windows are created by (1) obtaining a form-menu view in the standard way, 
taking care to have a non-transparent background, (2) obtaining and positioning switch views 
within the form-menu view, and (3) associating a key character with the individual 
switches to permit character based switching. The key characters are associated via switch 
view message key:. 


- aSwitchView key: aCharacter 


Note that switch-menu windows provide no special facilities for palletizing rows or 
columns of switch views. 


Example 


Consider a modification of one of the previous examples dealing with colors. We wish to 
permit the color switches (red, green, and blue) to be triggered by the corresponding 
lowercase characters. The modified example is shown below (modifications in italic). 


| topView menuView redButton greenButton blueButton redButtonView 
greenButtonView blueButtonView | 


topView <— StandardSystemView new 
label: ‘Character Switching Buttons’; insideColor: Form white; borderWidth: 2. 
menuView e FormMenuView new. “use the top view's background" 


topView addSubView: menu View. 


redButton e Button newOff onAction: [Transcript show: 'red ']. 
greenButton e Button newOff onAction: [Transcript show: ‘green ']. 
blueButton + Button newOff onAction: [Transcript show: ‘blue ']. 


redButtonView <— SwitchView new label: 'red' asParagraph; model: recButton. 
greenButtonView + SwitchView new label: 'green' sasParagraph; model: greenButton. 
blueButtonView <— SwitchView new label: ‘blue’ asParagraph; model: blueButton. 


redButtonView key: $r. greenButtonView key: $g. blueButton View key: $b. 
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menu View 
window: Display boundingBox; “helps eliminate transformation roundoff errors" 
addSubView: redButtonView in: (0.1@0.1 corner: 0.3@0.9} borderWidth: 1; 
addSubView: greenButtonView in: (0.4@0.1 corner: 0.6@0.9) borderWidth: 1; 
addSubView: blueButtonView in: (0.7@0.1 corner: 0.9@0.9) borderWidth: 1. 


topView controller open 


Note that associating a switching key with a switch view would have no effect if the 
switch view were not imbedded inside a form-menu view. Also, it is not possible to 
associate more than one key with the switch view. Thus, it is not possible to permit both 
uppercase and lowercase characters to switch the view. 


5.5.2 Switch-Menu Windows: The implementation 


It is important to realize that form-menu views and controllers were designed to support the 
implementation of bit and form editors. Consequently, they contain a substantial number of 
private operations that cannot be used publicly, since they access private class variables that 
must not be modified. These private operations make use of a private class named 
FormButtonCache, which we will not document. We consider only those public operations 
that can be used directly. 


The FormMenuController Protocol 


revised contro! operations 


° —aFormMenuController isControlWanted 


Obtains control; i.e., returns true if the cursor is inside the view or if a 
keyboard character has been depressed. 

aFormMenuController isControlActive 
Retains control; i.e., returns true if the cursor is inside the view and the blue 
mouse button is not depressed. 


* ~~ aFormMenuController controlActivity 


If a keyboard character is typed, overrides the standard control activity by 
passing control to the subview indicated by the button pressed (if there is 
one); otherwise discards the character. 


private control operation 


° —aFormMenuController processMenuKey 


Extracts the next character from the keyboard and gives contro! to the 
subview selected by the character. 


Details of the Control Activity 


The protocol differs from the standard Controller protocol by processing the keyboard 
characters and interpreting them as switching characters; i.e., characters to be used to 
determine which subview to give control to. 


revised control operations 


* —aFormMenuController isControlActive 


“Retains control; i.e., returns true if the cursor is inside the view and the 

blue mouse button is not depressed.” 

T(sensor keyboardPressed | (view containsPoint: sensor cursorPoint)) & 
sensor blueButtonPressed not 
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aFormMenuController isControlWanted 


“Obtains control; i.e., returns true if the cursor is inside the view or a 
keyboard character has been depressed." 
Tsensor keyboardPressed Í self viewHasCursor 


aFormMenuController controlActivity 


"If a keyboard character is typed, overrides the standard control activity by 
passing control to the subview indicated by the button pressed (if there is 
one); otherwise discards the character." 
sensor keyboardPressed 

ifTrue: [self processMenuKey] 

ifFalse: [self controlToNextLevel) 


private control operation 


* aFormMenuController processMenuKey 


“Extracts the next character from the keyboard and gives control to the 
subview selected by the character.” 
t aView | 


aView + view subViewContainingCharacter: sensor keyboard. 
aView ~~ nil if True: [aView controller sendMessage] 


The FormMenuView Protocol 


A form-menu view provides the interface between itself and its subviews, which are switch 


views. Only one new public operation is provided. A revised method for obtaining the 
default controller is also provided. 


instance creation 


© View new 


Creates a new initialized view with a transparent background and zero- 
width border. 


communication with subviews 


© —aFormMenuView subViewContainingCharacter: aCharacter 


Returns the subview that will switch on the specified character; nil if there 
is none. 


controller access 


© aFormMenuView defaultControllerClase 


Returns class FormMenuController. 


5.6 SUMMARY 


This chapter has provided the details of switch windows, which provide the ability to turn 
something on or off. In particular, we have discussed the following notions: 
* The model, view, and controller hierarchies associated with switch windows. 


The distinction between switches, buttons, and one-on switches. 


e The detailed protocol for classes Switch, Button, and OneOnSwitch. 
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Numerous examples showing how switches, buttons, and one-on switches may be 
created and used. 


The protocol for controller classes SwitchController, IndicatorOnS witchControl- 
ler, and LockedSwitchController. Class IndicatorOnSwitchController provides 
additional facilities to highlight the view border in gray while switch processing is 
in progress. This might be used, for example, with a save button that takes a 
while for the operation to finish. Class LockedSwitchController provides switch 
controllers that flash and refuse to take control if the model is locked. This can be 
used to prevent accidental loss of changes in progress. 


The protocol for class SwitchView — a view that works with each of the above 
controllers. 


The distinction between a switch view’s label and highlight object that can be used 
to overlay the label. 


An example dealing with the creation of a subclass that permits distinct label and 
highlight objects, eliminating the requirement that the highlight must overlay the 
label. 


Pluggable switch windows including the detailed protocol for class BooleanView. 
Piuggable switch windows use the standard switch controller. 


An example illustrating the use of pluggable switch windows for interrogating a 
user about pizza parameters. 


A discussion of the problems that arise as switch views are scaled when windows 
are resized and the creation of a class of switch views that does not scale the 
labels. 


Switch-menu windows, including the detailed protocol for supporting classes 
FormMenuView and FormMenuController. Switch-menu windows provide pallets 
of switches that can be switched using the keyboard in addition to the mouse. 


5.7 EXERCISES 


The following exercises are intended to provide some experience with switches, switch 
windows, and related issues. 


1. 
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Design a switch window that 3. Create a horizontal (or vertical) row 
contains the current time and that of switches containing all the cursor 
additionally updates itself at regular forms in the system. When one is 
intervals. depressed, change the cursor to 
Design a switch window that counts; male 

every time the switch is 4. Create a switch with a frowning face 
depressed, it increments a counter when it is off and a smiling face 
that is visible as part of the label. when it is on. 


Consider adding a yellow button 
menu that resets it at zero. 
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5. Revise the switch view protocol so 
that centerLabel does not modify 
the label and so that arbitrary 
windows may be specified. 


6. Revise the tic-tac-toe game to use 
switch windows for the squares on 
the game board. 


5.8 GLOSSARY AND IMPORTANT FACTS 


classes 


BooleanView The view class for pluggable 
switch windows; can be tailored to display 
any two-valued aspect of an arbitrary 
object. 


FormMenuController A controller class that 
permits keyboard characters to switch the 
subviews; i.e., typing an individual 
character that has been associated with a 
specific switch view will cause the switch 
view's model to switch just as if the mouse 
button had been depressed on it. 


FormMenuView The view class associated 
with FormMenuController; differs from 
class View by providing a different default 
controller. 


IndicatorOnSwitchController A controller 
class that provides facilities to highlight 
the view border in gray while switch pro- 
cessing is in progress; can be used, for 
example, with a save button that takes a 
while for the operation to finish. 


selected terminology 


button A push-button style switch; i.e., a 
switch that automatically turns off 
whenever it is tumed on. It can't be created 
in the on position. 


complemented mode The mode the view is 
in when its switch model is on. 


connection object An arbitrary object to 
which all connected one-on switches must 
be associated; the association is estab- 
lished via ‘aOneOnSwitch connection: 
anObject’. 
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7. Reimplement the solution to the co- 
ordinated lights problem (page 22) 
using one-on switches instead of 
normal switches. Also, use switch 
windows instead of forms and embed 
the switches inside a standard system 
view. 


LockedSwitchController A controller class 
where instances flash and refuse to take 
control if the model is locked; can be used 
to prevent accidental loss of changes in 
progress. 


SwitchController The standard controller 
class for switch windows; specializations 
include IndicatorOnSwitchController 
and LockedSwitchController. 


SwitchView The view class that provides the 
standard switch window protocol; speciali- 
zations include BooleanView. 


fixed point A window point that transforms 
exactly where the display transformation 
dictates. Other points cannot be trans- 
formed where the transformation dictates if 
the window is prevented from being 
scaled. 


highlight object The display object (para- 
graph, form, path, and so on) that will be 
superimposed over the label when the 
switch is on. 
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indicator-on switch controller A switch 
controller that highlights the view border 
in gray while switch processing is in 
progress. 


interrogation message A message (a selec- 
tor and a list of arguments) that can be 
associated with a switch view; used to 
determine the status of the model. The 
default message is ‘model isOn’. 


key character A character that can be 
associated with a switch view that is a 
subview of a form-menu view; used for 
switching the view without having to 
manipulate the mouse. 


label The display object (paragraph, form, 
path, and so on) that will serve as the 
picture for the switch window. 


locked switch controller A switch controller 
that flashes and refuses to take control if 
the model is locked. 


modification message A message (a selec- 
tor and a list of arguments) that can be 
associated with a switch controller; used to 
change the status of the model. The default 
message is ‘model switch’. 


normal mode The mode the view is in when 
its switch model is off, 


one-on switch A car-radio style switch; i.e., 
when several such switches are connected 
together, only one of them is on at a 
time. Turning on a one-on switch automa- 
tically causes the others connected to it to 
be turned off. 


important facts 


communicating on and off actions Distinct 
on and off actions can communicate 
through local variables in common 
contexts but these local variables cannot 
be changed. The reason is that a shallow 
copy of each on or off action context is 
made when it is associated with a switch. 


default messages Summarized by “views ask” 
and “controllers change”; the default 
interrogation message ‘model isOn’ 
is associated with a switch view; the de- 
fault modification message ‘model 
switch’ is associated with a switch con- 
troller. 
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pluggable switch window A window that 
permits arbitrary models with model 
specific yellow button menus and follows 
the general pluggable windows philo- 
sophy; can be constructed from boolean 
views and standard switch controllers (or 
their specialization indicator-on switch 
controllers or locked switch controllers). 


standard switch window A window that 
permits arbitrary models but does not 
provide the ability to create model specific 
yellow button menus. 


switch An object that can be either on or 
off. When turned on, an associated block, 
the on action, is executed. When tumed 
off, another block, the off action, is 
executed. Two specializations exist: 
buttons and one-on switches. 


switch window A window designed to display 
an icon that represents a switch. This icon 
can be tumed on or off by pressing the 
mouse button over the icon. 


switch-menu window A window that provides 
pallets of switch windows that can be used 
as menus; constructed from form-menu 
controllers and form-menu views. 


pluggable switch view parameters Pluggable 
switch views are provided with (1) a mo- 
del, (2) two message selectors for access- 
ing and changing the model (an aspect 
selector and a change selector), (3) a 
label (any object that can be converted to 
a paragraph) to serve as the view’'s screen 
image, (4) an optional highlight object, 
and (5) an on-value; i.e., an aspect value 
that should cause the view to be on (in 
complemented mode) rather than off (in 
normal mode). 
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Form Windows 


6.1 INTRODUCTION 


There is only one kind of permanently visible non-scrollable form window, or simply 
form window for short (see Fig. 6.1). Form windows are designed to display pictorial data. 
Such windows could be used by paint programs or animation systems, for example. 
Currently, neither is supplied with the standard Smalltalk image, although developments are 
in progress. These windows are currently used by the form editor and the screen controller. 


Permanently VisibleWindow 


NonScrollableWindow 


Figure 6.1 Form windows: A logical view. 


Form windows are constructed from form views or form holder views (see Fig. 6.2). 
Any combination of controllers, like mouse menu controllers or instances of NoController, 
for example, will work. On the other hand, only the FormEditor (this is actually a controller 
class) will permit interaction with the view. From the user's point of view, form controllers 


are designed primarily to show pictures, not to provide an interaction facility. 
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FormHolder View 


Figure 6.2 The form view hierarchy. 


Class Form View provides the basic protocol for displaying forms. Specialization 
FormHolder View provides locking on the form so that modifications can be cither 
accepted or canceled. 


6.2 CREATING FORM WINDOWS 


Form windows are created by instantiating instances of FormView or FormHolderVicw 
using new. Since this operation is inherited from class View, the default border is zero- 
width. Of course, we might expect the default transparent inside color to be suitable, since 
the form itself cannot be transparent. However, forms are often subjected to transformations 
that are non-integral. For example, a form could be scaled by a factor of 2.37 instead of a 
nice integer value like 3. The display process must at some point truncate some part of the 
computation to an integer, since forms must contain an integral number of bits. The 
consequence is that the forms often don't quite fit the display box. Conclusion: Use a white 
inside color in case the form is truncated. If the border separates from the containing view, 
use a zero-width border and increase the border size of the containing view. Sce paragraph 
editor views for a more thorough discussion of this same effect. The default controller is 
class FormEditor; hence, a nonstandard controller is likely to be needed. 


Example 


Consider a simple inert view containing a portion of the existing screen. Fig. 6.3 illustrates 
the window with a magnification of some user-chosen portion of the screen. 


example 1 


‘ormExamples examp 


Ltarnwieus form Tier | 


Figure 6.3 An example form window. 
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| topView formView | 
topView «- StandardSystemView new 


label: ‘Form Window’; insideColor: Form white; borderWidth: 2. 


formView <— FormView new model: Form fromUser; controller: NoController new. 
topView addSubView: formView. 
topView controller open. 


6.3 THE FORMVIEW PROTOCOL 


Class Form View is designed to contain and display form models. For compatibility with its 
specialization, it provides menu messages accept and cancel that have no effect. The 


complete protocol follows. 


instance creation 


View new 
Creates a new initialized view. 


masks and rules 


aFormView mask 
Returns the mask used for displaying the model; the default is Form black. 
The mask is a specialized instance of class Form. 

aFormView mask: aForm 
Changes the mask used for displaying the model. Returns the view. 


aFormView rule 
Returns the rule used for displaying the model; the default is Form over. The 
rule is an integer from 0 to 15 that indicates which of the sixteen display 
rules to be used when copying the model onto the display screen. 
aFormView rule: anInteger 
Changes the rule used for displaying the model. Returns the view. 


defaults 


aFormView defaultControllerClass 
Returns class FormEditor. This is not likely to be the default needed by 
users. 
aFormView defaultWindow 
Returns a rectangle large enough to contain the form and a border. 
aFormView defaultMask 
Returns Form black. 
aFormView defaultRule 
Returns Form over. 


model access 
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aFormView changeValueAt: anintegerIndex put: either0Or1 

The model is a form that can be manipulated as if it were a one-dimensional 
array of bits. Changes the bit at the given integer index to either 0 or 1 and 
informs all objects that depend on the value that it has been changed; i.e., 
executes ‘model changed: self’. Recall that the number of bits in a form can 
be determined via ‘aForm size’; the bits can be accessed and changed via 
‘aForm valueAt: anintegerindex’ and ‘aForm valueAt: anlntegerlndex put: 
either0Or1’ respectively. 


displaying 
° aFormView displayView 


Displays the inside color and the form in the view. Note: the form offset is 
ignored; i.e., it is interpreted as 0@0. 


updating 
e 


aFormView update: aFormView 
Updates itself only if the parameter is this view. 


menu messages 


°  aFormView accept 


Provided for compatibility with form holder views. Has no effect since form 
views have no working copy. 
aFormView cancel 


Provided for compatibility with form holder views. Has no effect since form 
views have no working copy. 


Where Form Views Are Used 


Form-holder views are, of course, used by the bit and form editors. A form view is also used 
by the control manager when it creates the scheduled screen controller. Class method 
initialize constructs the screen controller as follows: 


screenView <— FormView new 


model: (InfiniteForm with: Form gray) controller: ScreenController new; 
window: Display boundingBox. 


6.4 THE FORMHOLDERVIEW PROTOCOL 


A form-holder view differs from a form view by providing a working version of the form 


for editing. The message accept is used to copy the working version into the model; the 
message cancel copies the model back to the working version. 


revised view releasing operations 


° aFormHolderView release 


Releases the working form in addition to setting it to nil. Since the model is 


usually a form and not a form view, this seems out of place. However, 
releasing a form is a no-op. 


revised model referencing operations 
° aFormHolderView changeValueAt: location put: aninteger 
Overrides the inherited version to cause the working form to be modified 
instead of the original in tne model. 
aFormHolderView model: aForm 


Sets the model to the form and also makes a deep copy for the working 
form. 
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revised display operations 
® aFormHolderView displayView 
Displays the working form. Does not display the inside color. 


revised menu message operations 

* aFormHolderView accept 
Modifies the model by copying the working form into it and informs all 
objects that depend on the value that it has been changed; i.e., executes 
‘model changed: self’. 

aFormHolderView cancel 
Modifies the working form by copying the model into it and informs all 
objects that depend on the value that it has been changed; i.e., executes 
‘model changed: self’. 


new operations 


* —aFormHolderView workingForm 


Returns the working form. 


6.5 SUMMARY 


This chapter has provided the details of form windows that provide the ability to display, 


but not typically interact with, pictorial data. In particular, we have discussed the following 
notions: 


e The use of form views or form holder views to construct form windows. 


e The fact that no corresponding form holder controllers are provided. Nevertheless, 
mouse menu controllers or instances of NoController can be used to provide non- 
interactive controllers. The FormEditor (actually a controller class) permits 
interactions with the view. 


* The protocol for classes FormView and FormHolderView. 


e Details about the accept/cancel protocol supported by class FormHolderView. It 
provides a working copy of a form for editing purposes. 


6.6 EXERCISES 
The following exercises are an introduction to form windows and related concepts. 


1. Leam to use the form editor to create 3. Determine how to file out forms and 


pictures; e.g., try Form fromUser 
edit. 


Learn to use the bit editor; e.g., try 
Form fromUser bitEdit. 
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also how to file them back in. Your 
system may also have an interface 
with a more powerful paint program 
from which forms can be imported. If 
so, learn to use it. 
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4. Create a form that represents a geo- 
graphical map. Overlay button win- 
dows on top of cities and use them 
for displaying the names of cities; 
i.e. arrange it so that clicking on a 
city displays its population. 


5. Construct a form animator that dis- 
plays a collection of forms and op- 
tionally recycles it. 


6.7 GLOSSARY 


classes 


FormEditor A controller class that permits 
interaction with a form view. 


FormHolderView A specialization of Form- 
View that provides locking on the form 
so that modifications can be either accept- 
ed or canceled. 


selected terminology 


form window A window designed to dis- 
play pictorial data; could be used by paint 
programs or animation systems; currently 
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Create a form icon, a form window 
that can be double clicked to reveal a 
larger form (the background) with ad- 
ditional form icons overlaid on this 
background. There should be no limit 
to depth that such icons could be 
nested. 


Devise an adventure-style game based 
on form icons. 


FormView A view class that provides the ba- 
sic protocol for displaying forms. 


used by the form editor and the screen con- 
troller. 
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Pop-up Windows 


7.1 INTRODUCTION 


Pop-up windows are windows that appear suddenly when an interaction request is required 
and then immediately disappear after an appropriate reply. They exist in two varieties (see 
Fig. 7.1): pop-up menu windows and pop-up text-query windows. Pop-up menu windows 
provide users with a choice of menu entries to select from. It is also possible to make no 
choice. Pop-up text-query windows are used to request a textual response to some query. 
Pop-up binary text-query windows are a special case in which the response is either yes or 
no. 


PopUpWindow 


PopUpMenuWindow PopUpTextQueryWindow 


PopUpBinaryTextQueryWindow 


Figure 7.1 Pop-up windows: A logical view. 


Pop-up menu windows are provided by classes PopUpMenu and ActionMenu; pop- 
up text-query windows by the model-view-controller triple FillInTheBlank, FillInThe- 
BlankView, and CRFillInTheBlankController; and pop-up binary text-query windows 
by BinaryChoice, BinaryChoiceView, and BinaryChoiceController. Generalization 
FillinTheBlankController is also used in place of CRFillInTheBlankController. 
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StringHolder 
FillinTheBlank 


Figure 7.2 The pop-up window model hierarchy. 


BinaryChoice 


The model hierarchy (see Fig. 7.2) provides distinct models only for text query 
windows; i.e., there are no special models for menu windows. In fact, classes PopUpMenu 
and ActionMenu (see Fig. 7.4) deviate from the standard MVC paradigm. They can be 
viewed as combining the notion of a model, view, and controller into one object, 
themselves. Thus, it is not possible to easily change any of these integrated components. 


StringHolderView 
FilInTheBlank View 


Figure 7.3 The pop-up view hierarchy. 


BinaryChoice View 


The view class hierarchy (see Fig. 7.3) is relatively shallow. Class FillinThcBlank- 
View inherits most of its protocol from StringHolderView; class BinaryChoiceView is 
specially designed. 

The corresponding controller classes (sce Fig. 7.4) are equally small in number but 
they form part of a more complex inheritance hierarchy. FillInThcBlankController and 
CRFillInTheBlankController are string holder controllers with a revised control protocol that 
forces a user response; e.g., by flashing until its request is satisfied. After typing a response 
Gf different from the sample response), the user can signal acceptance by choosing accept in 
a yellow button pop-up menu. The CRFillInTheBlankController also permits this 
acceptance to be signaled by typing return (CR is short for carriage return). 

Class BinaryChoiceControler is much less complex; it is sufficient to have it inherit 
from the standard Controller class. 
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Controller 


Figure 7.4 The pop-up controller hierarchy. 


PopUpMenu 


BinaryChoiceController 


7.2 CREATING POP-UP WINDOWS 


Most of the pop-up window creation protocol has been detailed in Sect. 1.2, Windows and 
Window Support for the Novice. We repeat it here in abbreviated form (see Fig. 7.5 for 


examples) along with a few additions. 


lemonade? 


mediun 


Do you wish to continue? 


x 


Does water 


run downhill? 


Figure 7.5 Pop-up windows from PopUpMenu, ActionMenu, BinaryChoice, and 
FillInTheBlank. 
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Pop-up menu windows are obtained by direct requests to classes PopUpMcnu and 
ActionMenu; the windows are activated with a startUp or startUp:withHeading: message. 
Pop-up text-query windows are obtained by sending a request: message to class FillInThe- 
Blank; activation is built-in. Pop-up binary text-query windows are obtained by sending a 
confirm: request to an arbitrary object. The request is rerouted to class BinaryChoicc. It is 
also possible to alternatively send a message: request directly to class BinaryChoice. 


pop-up menu creation and activation 


e 
° 


aPopUpMenu — PopUpMenu labels: 'pig\cow\horselhen’ withCRs. 
aPopUpMenu <— PopUpMenu labels: 'pig\cow\horse\hen’ withCRs lines: #(1 3). 


aninteger +- aPopUpMenu startUp. 
aninteger <— aPopUpMenu startUpAndWaitForSelectionAt: aPoint. 
anInteger < aPopUpMenu startUp: aButton withHeading: 'Which\One?' withCRs. 


Constructs a pop-up menu containing the specified labels as menu items. 
The variation with lines: will additionally add lines after the specified 
entries; e.g., after pig and horse above. Note that each item is an arbitrary 
sequence of characters; the items must be separated by a carriage return 
(withCRs converts backslashes to carriage returns). Once the menu pops up, 
the user can either select one of the entries with the mouse or select 
outside the pop-up menu. Selecting an entry will cause the position of the 
entry: e.g., 1, 2, 3, or 4 in this example, to be returned; selecting outside 
causes 0 to be returned. In either case, once the mouse button is released, 
the pop-up menu disappears. The startUpAndWaitForSelectionAt: message 
permits the menu to be positioned at a particular location; e.g., it could be 
relative to a current active window position. The startUp:withHeading: 
variation permits a multi-line title to be provided; aButton is typically 
#anyButton but can also be #yellowButton, #redButton, or #blueButton. 


action menu creation and activation 


anActionMenu e ActionMenu labels: 'pig\cow\horse\hen' withCRs. 
anActionMenu e ActionMenu labels: 'pig\cow\horse\hen’ withCRs lines: #(1 3). 
anActionMenu e ActionMenu labels: 'yes\no' withCRs selectors: #{doYes doNo). 
anActionMenu +- ActionMenu labels: 'yes\no' withCRs lines: #{) selectors: #(...). 


anInteger e anActionMenu startUp. 
aninteger — anActionMenu startUpAndWaitForSelectionAt: aPoint. 
anInteger e anActionMenu startUp: aButton withHeading: 'Which\One?' withCRs. 


Differs from the previous pop-up menu in being able to store selector 
messages. The sender can explicitly extract these messages via 
‘anActionMenu selectorAt: anindex’ and perform them. 


binary choice creation and activation 
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aBoolean <- anObject confirm: ‘Did the chicken come before the egg?\Well!' withCRs. 
aBoolean +- BinaryChoice message: 'Do you agree?\Well!' withCRs. 


aBoolean «< BinaryChoice message: aString displayAt: aPoint ifTrue: aBlock. 
aBoolean é- BinaryChoice message: aString displayAt: aPoint ifFalse: aBlock. 
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®*  aBoolean — BinaryChoice message: aString displayAt: aPoint 


ifTrue: aBlock ifFalse: aBlock. 
aBoolean + BinaryChoice message: aString displayAt: aPoint 
centered: aBoolean ifTrue: aBlock ifFalse: aBlock. 


The confirm: message constructs a confirmer; i.e., a window with the above 
message (multi-lined if carriage returns are contained) with both a yes box 
and a no box. The user will be forced to choose one or the other. If yes is 
chosen, true is returned; otherwise, false. Attempts to ignore the confirmer 
by trying to activate other windows result in the screen flashing. Once a 
choice is made, the window disappears. The confirm: message can be sent 
to any object, but the receiver is inconsequential since it is rerouted to 
BinaryChoice. The BinaryChoice variations are useful if the messages need 
to be displayed at a specific location. In the last case, either the window 
center or the window origin is positioned at the point, depending on 
whether or not the centering parameter is true. The centering default is true 
for confirm: and message: and false for the other variations. 


FilllnTheBlank creation and activation 


aString e FilllnTheBlank request: ‘What is your name?’. 
aString < FilllnTheBlank request: ‘Do you wish to continue?’ initialAnswer: ‘yes’. 


aString e FilllnTheBlank message: aString displayAt: aPoint centered: aBoolean. 
action: aBlock initialAnswer: aString. 

aString — FilllnTheBlank request: aString displayAt: aPoint centered: aBoolean 
action: aBlock initialAnswer: aString. 


Constructs a request window with the above message (multi-lined if 
carriage returns are contained). The user will be forced to type a response 
that is terminated either by a carriage return or by choosing accept in the 
yellow button menu. At that point the window disappears. Attempts to 
ignore the request by trying to make other windows active are signaled by 
flashing. The typed string is returned to the sender. The initial answer, if 
provided, is returned by immediately typing a carriage return or accepting 
the text. It can be edited to provide a different answer. The latter two 
variations permit explicit control over the positioning of the window. The 
message.... variation requires an explicit accept by the user; the request.:... 
variation additionally permits acceptance signaled by typing return. Note: if 
a multi-lined response is desired, the message:... variation must be used. 
The centering default is true for both request: variations. 


7.3 POP-UP MENUS 


A pop-up menu is an interactive window for selecting an item from a list of menu items. 
All items in the pop-up menu are displayed one above the other; no scrolling is needed. 
When the user depresses the mouse button on one of these items, it is highlighted to indicate 
that it has been selected. Moving the mouse to another item will change the sclection. 
Moving it off all items will result in no selection. When the mouse button is released, the 
index of the chosen selection is returned; 0 is returned for no selection. 
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Two varieties of pop-up menus are provided: standard pop-up menus and action 
menus. Action menus differ from the former by providing an array of selectors parallel to 
the menu items. The selectors are usually used to process the selected item; e.g., by using it 
to send a processing message to some appropriate view’s model. Yellow button menus for 
pluggable windows must be action menus. 


7.3.1 The PopUpMenu Protocol 


Class PopUpMenu is independent of all other windows in the system. As such, it inherits 
from Object as shown in Fig. 7.6. It is in effect a model, vicw, and controller all combined 
into one. Pop-up menus are not scheduled for execution. Rather, they must be started up in 
the current process. When started, they pop up awaiting a user selection. While it is active, 
no other window can be activated. After the mouse button is depressed and released, the pop- 
up menu disappears. 


PopUpMenu 


Figure 7.6 The PopUpMenu hierarchy. 


A pop-up menu is created by specifying labels, a string of items scparated by carriage 
returns, and lines, an array specifying the item after which a line is to be drawn. If no lines 
are desired, the latter can be omitted. 


Menu entries are all the same size. When an entry is selected, a rectangle of the 
appropriate size, called the marker, is moved to the selected entry. Highlighting and 
dchighlighting are achieved by reversing the portion of the display indicated by the marker. 

creating the pop-up menu without start up 

*  PopUpMenu labels: aStringOfltems 
PopUpMenu labels: aStringOfltems lines: anArrayOfltemPositions 

Returns a pop-up menu whose items are in aStringOfltems. Each item in the 
string must be separated by a carriage return. When the lines array is 
specified, causes lines to be drawn after each item specified by 


anArrayOfltemPositions. Item one is at position 1, item two at position 2, 
and so on. 


starting up the pop-up-menu 


aPopUpMenu startUp 

aPopUpMenu startUpYellowButton 

aPopUpMenu startUpRedButton 

aPopUpMenu startUpBlueButton 

aPopUpMenu startUp: aSymbol 
Method startUp defaults to #anyButton. Displays the pop-up-menu at the 
current sensor point, waits for the button specified by aSymbol (one of 
#yellowButton, #redButton, #blueButton, #anyButton) to be depressed, and 
then continuously highlights and dehighlights the user's selections until the 
the button is released. Returns the last selection (0 if none was selected). 
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* aPopUpMenu startUp: aSymbol withHeading: aText 


As above, but provides an additional title box with aText displayed in it. 

* aPopUpMenu startUpAndWaitForSelectionAt: aPoint 
Differs from startUp by displaying the pop-up menu at the specified point 
and by waiting for the button to be depressed inside the pop-up menu 
display box. Then, it continuously highlights and dehighlights the user's 
selections until the button is released. Returns the last selection (0 if none 
was selected). 


operations privately used by the start up methods 
* aPopUpMenu buttonPressed: aSymbol 

Returns whether or not the button specified by aSymbol (one of 

#yellowButton, #redButton, #blueButton, #anyButton) was depressed. 
aPopUpMenu displayAt: aPoint during: aBlock 

Displays the pop-up menu centered at aPoint while aBlock is evaluated. If 

necessary, translates the view so that it is completely on the screen. 
aPopUpMenu displayAt: aPoint withHeading: aText during: aBlock 

As above, but additionally provides title aText for the pop-up-menu. 


selection management 
° —aPopUpMenu reset 
Initializes the marker position to the top of the pop-up menu and the current 
selection to 0 (no selection). 
aPopUpMenu manageMarker 
If the cursor is inside the pop-up menu display box, highlights the selected 
item; otherwise, dehighlights the last selected item (if any). 
aPopUpMenu markerOn: aPoint 
The item whose bounding area contains aPoint is selected. Dehighlights the 
last selected item (if any). Highlights the area and records the index of the 
selection. 
aPopUpMenu markerOff 
Records that no item is selected. Dehighlights the last selected item (if any). 
aPopUpMenu markerTop: aPoint 
Returns aPoint gridded to the nearest items in the pop-up menu. 
aPopUpMenu selection 
Returns the current selection. 


display box accessing 


aPopUpMenu width 
aPopUpMenu height 
aPopUpMenu center 
aPopUpMenu topLeft 
Returns sizing information about the pop-up menu display box. 
* —aPopUpMenu borderWidth 
Returns the width of the pop-up menu display box border. 


private 


* aPopUpMenu labels: aStringOfltems font: aFont lines: anArrayOfltemPositions 


Initializes the pop-up menu in support of the corresponding class methods. 
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Example 


Suppose we want the user to select an object that is either black or white, large or small. We 
can create a four-choice pop-up menu (sce Fig. 7.7) in two ways. 


aPopUpMenu e PopUpMenu 

labels: ‘large black\large white\smail black\small white’. 
aPopUpMenu < PopUpMenu 

labels: ‘large black\large white\small black\small white’ lines: #(2) 


The second approach puts a dividing line after the ‘large white’ choice; i.e., divides the 
selections into two equal parts. Normally, the pop-up menu would be activated via 


aPopUpMenu startUp 


or 


aPopUpMenu startUpYellowButton 


However, occasionally it is useful to add a title to inform the user of what he has to do 
(see Fig. 7.7). For instance, 


aPopUpMenu startUp: #anyButton withHeading: ‘Please make a choice’. 


large black 
large white 


small black 
small white 


Figure 7.7 A pop-up window (selection not yet made). 


Please make a choice 


The PopUpMenu Creation Protocol 


The main protocol is illustrated by public method labels:lines: and private method 
labels:font:lines:. No facility is provided for users knowledgeable about fonts to make use 
of the private facility. The string of items is used to create a paragraph of centered items, 
which is then converted to a form. Lines are added to the form at the appropriate places by 
filling small rectangles of height 1. A marker is then created with the same width as the 
form and the height of one menu entry. The marker is positioned on the first menu entry. It 
will be moved when new selections are made. 


creating the pop-up menu without starting it up 
*  PopUpMenu labels: aStringOfitems lines: anArrayOfltemPositions 
"See comment above." 
Tself new 
labels: aStringOfitems 
font: (TextStyle default fontAt: 1) 
lines: anArrayOfltemPositions 
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private 


*  aPopUpMenu labels: aStringOfltems font: aFont lines: anArrayOfltemPositions 
“Initializes the pop-up menu in support of the corresponding class methods,” 


| style labelParagraph | 


“Save parameters in instance variables." 
labelString e aStringOfltems. font e aFont. 
lineArray <— anArrayOfltemPositions. 


“Create a form containing the elements centered one above the other.” 
style <— TextStyle fontArray: (Array with: font). 

style alignment: 2 "centered"; gridForFont: 1 withLead: 0. 

labelParagraph +- Paragraph withText: aStringOfltems asText style: style. 
form e labelParagraph asForm. 


“Create quadrangle for some extra space around the form and for a border." 
frame <— Quadrangle new 
region: (labelParagraph compositionRectangle expandBy: 2); 
borderWidth: (1@1 corner: 3@3); yourself. 


“Add separation lines to the form by filling appropriate subrectangles of 
width 1." 
lineArray == nil ifFalse: [ 
lineArray do: [:line | 
form 
fill: (0 @ (line * font height) extent: (frame width @ 1)) 
mask: Form black]}. 


"Create the highlight marker and record that no selection has been taken.” 
marker < frame inside topLeft 

extent: frame inside width @ labelParagraph lineGrid. 
selection «— 0 


The PopUpMenu StartUp Protocol 


The most complex part is illustrated by methods startup:withHeading:, buttonPressed:, 
and displayAt:withHeading:during:. The first method sends a block to the display 
method. When activated, the block busy-waits until the specified button is depressed, 
flashing if the cursor is outside the pop-up menu. Once the button is depressed, the current 
selection is highlighted or dehighlighted as appropriate until the button is released. The last 
selection made is returned once the display message terminates execution. 

The displayAt:withHeading:during: method creates a title box above the pop-up 
menu frame and moves both if necessary to place them within the display area. The areas 
that are to be overwritten by the pop-up window are saved for later restoring. The title and 
menu frame are subsequently displayed with suitable borders. By sending a value message to 
the block, selection management is then activated until a selection is finalized. Then the 
saved forms are restored. 


starting up the pop-up-menu 


°  aPopUpMenu startUp 
Tself startUp: #anyButton 
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aPopUpMenu startUp: aSymbol 
“Displays the pop-up menu at the current sensor point, waits for the button 
specified by aSymbol to be depressed, and then continuously highlights and 
dehighlights the user's selections until the the button is released. Returns 
the last selection (0 if none was selected).” 
self displayAt: Sensor cursorPoint during: [ 
Sensor cursorPoint: marker center. "Move cursor to top menu item.” 
“Busy-wait for button to be depressed.” 
{self buttonPressed: aSymbol] whileFalse: []. 
“While it is depressed, keep highlighting and dehighlighting the selection." 
[self buttonPressed: aSymbol] whileTrue: {self manageMarker]]. 
Tselection 
* —aPopUpMenu startUp: aSymbol withHeading: aText 
"Similar to above but with extra title.” 
self displayAt: Sensor cursorPoint withHeading: aText during: [ 
Sensor cursorPoint: marker center. "Move cursor to top menu item.” 
“Busy-wait for button to be depressed; flash if outside the pop-up menu.” 
[self buttonPressed: aSymbol] whileFalse: [ 
(frame containsPoint: Sensor cursorPoint) 
ifFalse: [Display flash: frame]]. 
“While it is depressed, keep highlighting and dehighlighting the selection.” 
[self buttonPressed: aSymbol] whileTrue: [self manageMarker]]. 
Tselection 


operations privately used by the start up methods 
° aPopUpMenu buttonPressed: aSymbol 
“Returns whether or not the button specified by aSymbol was depressed." 
aSymbol = #redButton if True: [TSensor redButtonPressed]. 
aSymbol = #yellowButton if True: {TSensor yellowButtonPressed]. 
aSymbol = #blueButton ifTrue: {TSensor blueButtonPressed]. 
TSensor anyButtonPressed 
* aPopUpMenu displayAt: aPoint withHeading: aText during: aBlock 
“Displays the pop-up menu with heading aText centered at aPoint while 
aBlock is evaluated. If necessary, translates the view so that it is 
completely on the screen.” 
| delta savedArea heading headingBox headingSavedArea | 


“Align the top of the pop-up menu frame with aPoint (the marker is on the 
top item)." 
frame <— frame align: marker center with: aPoint. 


“Create title above the pop-up menu frame.” 
heading e aText asDisplayText. 
headingBox <— heading boundingBox expandBy: 2. 
headingBox < headingBox 

align: headingBox bottomCenter 

with: frame topCenter + (0@2). 


"Move the frame, headingBox, and marker if they are outside the display.” 
delta — (frame merge: headingBox) 
amountToTranslateWithin: Display boundingBox. 
frame moveBy: delta. 
headingBox moveBy: delta. 
marker <— marker align: marker center with: aPoint + delta. 
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“Save the forms underneath the frame and headingBox rectangles." 
savedArea + Form fromDisplay: frame. 
headingSavedArea < Form fromDisplay: headingBox. 


“Display the title border and the title itself.” 
Display border: (headingBox) width: 2 mask: Form black. 
heading displayAt: headingBox origin + (2@2). 


“Display the pop-up menu frame border and the frame itself." 
Display black: (frame origin + (1@1) corner: frame corner). 
Display black: (frame origin corner: frame corner - (1@1)). 

“Note: the top right and bottom left corners remain unchanged?" 
form displayOn: Display at: frame inside topLeft clippingBox: frame inside. 
“Handle potential future extension: pre-initialized selection." 
selection ~= 0 ifTrue: [Display reverse: marker]. 

“Make the actual selection." 

aBlock value. 


“Restore the display to its original state.” 
savedArea displayOn: Display at: frame topLeft. 
headingSavedArea displayOn: Display at: headingBox topLeft 


The PopUpMenu Selection Management Protocol 


Selection management is relatively simple. As long as the cursor is inside the pop-up menu, 
the old selection is dehighlighted (if necessary) by reversing the area specified by the marker 
rectangle), the marker is moved to the new selection, and it is highlighted by 
reversing the marker area in the same way. If the cursor is outside the pop-up menu, it is 


(a simple 


sufficient to dehighlight the old selection (if necessary). 


selection management 
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aPopUpMenu manageMarker 
"|f the cursor is inside the pop-up menu display box, highlights the selected 
item; otherwise, dehighlights the last selected item (if any)." 
| aPoint | 
aPoint — Sensor cursorPoint. 
(frame inside containsPoint: aPoint) 
ifTrue: [self markerOn: aPoint] 
ifFalse: [self markerOff] 


aPopUpMenu markerOn: aPoint 
“The item whose bounding area contains aPoint is selected. Dehighlights the 
last selected item (if any). Highlights the area and records the index of the 
selection." 


“If the selection is nonzero and the marker contains the cursor, do nothing 
because nothing has changed. Note: (A=B) | C not ifFalse: [...) is equivalent 
to ((A=B) | C not) not ifTrue : [...] which is (A~=B) & C ifTrue: [...].” 
selection = 0 | (marker containsPoint: aPoint) not ifTrue: [ 
selection = 0 & (marker containsPoint: aPoint) 
if True: [Display reverse: marker] “highlight it” 
ifFalse: | 
selection ~= 0 ifTrue: [Display reverse: marker}. “dehighlight it" 
marker <— marker "move to new selection" 
align: marker topLeft 
with: marker left @ (self markerTop: aPoint). 
Display reverse: marker “highlight new selection"]). 
selection < marker top - frame top // marker height + 1 “record selection" 
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aPopUpMenu markerOff 
"Records that no item is selected. Dehighlights the last selected item (if any)." 
selection ~= 0 ifTrue: [Display reverse: marker. selection «+ 0} 


aPopUpMenu markerTop: aPoint 
“Returns aPoint gridded to the nearest items in the pop-up menu." 
T(aPoint y - frame inside top truncateTo: font height) + frame inside top 


7.3.2 The ActionMenu Protocol 


Class ActionMenu is a specialization of PopUpMenu (see Fig. 7.8) that provides an 
additional parallel array of selectors. Action menus were designed primarily for use with 
pluggable views, but they can be used for any newly designed windows. As with pop-up 
menus, action menus return an index to the menu item selected (0 for no selection) when 
activated. The index returned is used to select an appropriate selector that is used as a 
message to send to the view's model. Action menus are documented as pluggable pop-up 
menus, but this is an error since they do not provide any facility to plug onto an object; i.e., 
they have no model. 


PopUpMenu 


Figure 7.8 The ActionMenu hierarchy. 


Action menus can be created with the standard pop-up menu protocol by providing the 
labels and optionally the lines. It can then be augmented by setting the missing array of 
selectors. Alternatively, the labels, selectors, and optionally the lines can be provided 
simultaneously. 


instance creation without start up 


PopUpMenu labels: aString 

PopUpMenu labels: aString lines: anArray 

ActionMenu labels: aString lines: anArray selectors: selectorArray 
ActionMenu labels: aString selectors: selectorArray 


instance creation with start up 


® — ActionMenu confirm 


Creates and schedules an action menu with labels 'confirm\abort’. Returns 
true for confirm and false otherwise. 


selector manipulation 
° —anActionMenu selectorAt: index 
anActionMenu setSelectors: selectorArray 

There is no corresponding method for extracting the selector array. 
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See the sections about pluggable windows, pluggable text windows, pluggable menu 
windows, and pluggable switch windows for examples using action menus. 


7.4 POP-UP TEXT-QUERY WINDOWS 


Classes FillInTheBlank, FillInTheBlank View, and either FillInTheBlankController 
or CRFillInTheBlankController form model-view-controller triples that provide pop-up 
text-query windows. The text editing protocol is inherited from the corresponding string 


holder classes (see Fig. 7.9). Hence, a fill-in-the-blank text window is a special kind of 
string holder window. 


Controller 


StringHolder String Holder View 


FillInTheBlank StringHolderController 


FillInTheBlank View 


FillInTheBlankController 


CRFillInTheBlankController 
Figure 7.9 Text-Query windows: The FillInTheBlank hierarchy. 


Fill-in-the-blank text-query pop-up windows are used for interactively querying users 
about string information; e.g., descriptive data, a name, a piece of code. 


7.4.1 The FilllnTheBlank Protocol 


Instances of class FillInTheBlank are string holders with an associated one-parameter 
action block. They are designed to execute this block when the user accepts the text typed 
in the corresponding view. The accepted text is passed as a parameter to the action block. For 
convenience, fill-in-the-blank instances are usually provided with an initial string as a 
suggestion to the user. This initial string is, of course, the string holder contents. 


instance creation without scheduling 


*  StringHolder new 


When sent to FilllnTheBlank, returns an initialized instance. 

FilllnTheBlank action: aBlock initialAnswer: aString 
Returns an instance with the specified action block (it should be a one- 
parameter block) and the specified initial string holder contents. 


e 
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instance creation with scheduling 


° — FilllnTheBlank request: queryString 
* — FilllnTheBlank request: queryString initialAnswer: answerString 
Creates a pop-up window centered at the cursor point with a query 
message that must be answered interactively by the user. Returns the 
string accepted by the user; acceptance can be chosen from a menu entry or 
signaled by typing a carriage return. An empty string is used if the initial 
answer is not provided. 
*  FilllnTheBlank message: queryString displayAt: aPoint centered: aBoolean 
action: aBlock initialAnswer: answerString 
* — FilllnTheBlank request: queryString displayAt: aPoint centered: aBoolean 
action: aBlock initialAnswer: answerString 
e 


FilllnTheBlank request: queryString displayAt: aPoint centered: aBoolean 

action: aBlock initialAnswer: answerString useCRController: anotherBoolean 
Creates a pop-up window with a query message that must be answered 
interactively by the user. Either the window center (if the centering 
parameter is true) or the top left corner (if it is false — the default) is 
positioned at the specified point. When the user accepts the string typed in 
(or the initial version provided), the action block (if provided) is executed 
with the accepted string as parameter. The message: version requires an 
explicit accept by the user; the request: version additionally accepts 
automatically when a carriage return is typed; and the request:...useCR- 
Controller: version permits the choice of either. 


instance initialization 


° — aFilllnTheBlank initialize 
Initializes the instance to indicate that there is no action block (nil) and that 
the action block has not yet been executed. 


action block manipulation 


° — aFilllnTheBlank action: aBlockOrNil 
Records the action block to be used when the user accepts the text in the 
text window; nil indicates that no action block is to be used. 

* — aFilllnTheBlank selectAction 
Evaluates the action block with the contents of the instance that is a special 
kind of string holder. 


* — aFilllnTheBlank actionTaken 
Returns true if the action block has already been executed; otherwise false. 
* — aFilllnTheBlank setAction: aBoolean 
Sets whether or not the action block has been executed. Could have been a 
side effect of selectAction but isn't. 
Example 


Fig. 7.10 illustrates the result of four fill-in-the-blank requests. The two simple request 
messages are appropriate for most requirements. The two more complicated versions are used 
primarily when the fill-in-the-blank view can be specially positioned; e.g., relative to some 
part of the window that is currently in control. The version of the form message... is 
needed when multiple lines of input are required. The other variation immediately terminates 
as soon as a Carriage return is typed. 
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aName < FilllnTheBlank request: ‘Name, please?’. 
aClassName — FilllnTheBlank request: ‘Class name, please’ initialAnswer: ‘Object’. 


FilllnTheBlank request: ‘Width, please?’ displayAt: view insetDisplayBox center 
centered: true action: [:aString | width + aString asNumber] initialAnswer: ‘100’, 

FilllnTheBlank message: ‘Name and address, please‘ displayAt: Sensor cursorPoint 
centered: true action: [:aString | aMultiLineAddressBookEntry < aString] 
initialAnswer: ‘John Buck\Nowheresland' withCRs 


Class name, please? 


Wilf LaLonde 
Width, please? Name and address, please? 
100 John Buck 


Howheresland 


Figure 7.10 Text-query windows. 


The ...useCRController: version provides the basic implementation for the above by 
interfacing with a fill-in-the-blank view. Its implementation is the following. Note that it 
saves the form underneath it before starting up and restores it afterward. Additionally, note 
that the controller is not scheduled as a separate process. It is started up as part of the current 
process. This works well because the controller refuses to release control if the user has not 
accepted a typed string. 


instance creation with scheduling 
* — FilllnTheBlank request: queryString displayAt: aPoint centered: centerBoolean 
action: aBlock initialAnswer: answerString useCRController: useCRControllerBoolean 
“See comment above." 
| newBlank filllnView savedArea | 
newBlank < self new; action: aBlock; contents: answerString; yourself. 
fillln View + 
FilllnTheBlankView on: newBlank 
message: queryString 
displayAt: aPoint 
centered: centerBoolean 
useCRController: useCRControllerBoolean. 
savedArea < Form fromDisplay: filllnView displayBox. 
filllnView display; controller centerCursorinView; controller startUp; release. 
savedArea displayOn: Display at: filllnView viewport topLeft 


The top view returned by the fill-in-the-blank on:message:displayAt:centered:use- 
CRController: message is a standard view with two subviews, a display-text view for the 
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query string and a fill-in-the-blank view for the user reply, initialized to the initial answer 
string. As expected, the fill-in-the-blank view does use a fill-in-the-blank controller. How- 
ever, the top view does not. It uses a binary-choice controller. The binary-choice controller is 
unique in that it refuses to relinquish control when no action has been taken on the model. 
Conversely, it also automatically relinquishes control once the action has been taken. Since 
it is not a standard system controller, it also prevents the user from explicitly closing or 
moving the view. 


7.4.2 The FilllnTheBlankController Protocol 


The fill-in-the-blank controller inherits the string holder controller protocol. However, it 
overrides the basic control protocol. If the user accepts the string, the model is notified that 
an action has been taken but the action block is not executed until the controller terminates. 
The control protocol is modified to automatically release control, never to accept it again 
once the action is taken. The action block is executed as part of the controlTerminate 
method once the action has been taken. 


Note that the fill-in-the-blank controller can also lose control in the traditional way; 
e.g., it loses control when the mouse is no longer in the view. However, when the controller 
for the top view is a binary-choice controller, as discussed above, the view will flash as long 
as the mouse is outside its bounds. It is also possible to construct a fill-in-the-blank window 
with a standard system view instead of an ordinary view. In that situation, the control- 
Terminate mcthod explicitly closes the window (closing it explicitly unschedules it). There 
is no need to unschedule the controller in the previous situation because it wasn't scheduled; 
it was given control via startUp. The code is explicitly shown to make it morc 
understandable. 


overriding the string holder basic control protocol 
° — aFilllnTheBlankController isControlWanted 
“Refuses to accept control if the user accepted the string. In other cases, it 
uses the string holder protocol." 
model actionTaken ifTrue: [Tfalse]. 
Tsuper isControlActive 


aFilllnTheBlankController isControlActive 
“Refuses to keep control if the user accepted the string. In other cases, it 
uses the string holder protocol.” 
model actionTaken ifTrue: [Tfalse]. 
Tsuper isControlActive 


aFilllnTheBlankController controlTerminate 
“Extends the string holder protocol if the user accepted the string. In that 
case, it explicitly unschedules the controller if it was scheduled and then 
executes the model's action block." 
| topController | 
super controlTerminate. 
model actionTaken ifFalse: [Tself]. 
topController — view topView controller. 
{topController notNil & {topControiler isKindOFf: StandardSystemController)) 
ifTrue: [topController close]. 
model selectAction 
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* — aFilllinTheBlankController accept 


"Extends the string holder protocol by indicating that the model's action has 
been taken but it does not execute the model's action block." 

super accept. 

model setAction: true 


special initialization to ensure that the initial string is selected (hightlighted in bold) 


© — aFilllnTheBlankController resetState 


“Forces the highlighting of the entire text so that the user can override it 
simply by typing over it.” 

super resetState. 

stopBlock — paragraph characterBlockForindex: paragraph text size+1. 


7.4.3 The CRFillinTheBlankControlier Protocol 


A er-fill-in-the-blank controller is a special kind of fill-in-the-blank controller that 
automatically accepts the text when a carriage return is typed. This is done by overriding the 
paragraph editor readKeyboard method. 


It also overrides the string holder controlInitialize method to eliminate the scroll 
bars. The method is simply a copy of the version in class ParagraphEditor with the code 
‘super controlInitialize’ eliminated; this avoids using the scroll controller's control- 
Initialize method that sets up the scroll bars. For short replies, this works well. For longer 
replies that wrap around to several lines before a carriage return is typed, it is sometimes 
necessary to scroll back up in order to review the text already written (or to fix it), Without 
scroll bars, it is necessary to force the automatic scrolling feature by attempting to select 
text that extends beyond the visible part. 


overriding the standard protocol 


© — aCRFilllnTheBlankController controlinitialize 


Deactivates the scroll bars. 
aCRFilllnTheBlankController controlTerminate 
Unchanged; i.e., executes ‘super controlTerminate’. 
* — aCRFillinTheBlankController readKeyboard 
Copied from ParagraphEditor to gain access to carriage returns. Invokes the 
method below when one is found. 
aCRFilllnTheBlankController er: aCharacterStream 
"Performs the standard paragraph editor task but additionally accepts the 
form holder contents.“ 
sensor keyboard. “Remove the carriage return previously peeked at.” 
characterStream isEmpty ifFalse: [ 
“idiosyncratic to the paragraph editor design" 
self replaceSelectionWith: 
(Text string: aCharacterStream contents emphasis: emphasisHere)]. 
self accept "The important part." 


7.4.4 The FilllntTheBlankView Protocol 


The fill-in-the-blank view is primarily concerned with constructing a top view that has two 
subviews, a display-text view for the query string and a fill-in-the-blank view for the user 
reply, initialized to the initial answer string. Two of the class methods simply construct 
such a view and return it. In that case, the top view is a regular view that is not expected to 
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be scheduled; it is expected to be given control via startUp. Its associated controller is a 
binary-choice controller that insists that the user reply be accepted before relinquishing 
control. A third method constructs and schedules a view. In that case, the top view is a 
standard system view with a corresponding standard system controller. 


creating unscheduled views awaiting start up 


FilllnTheBlankView on: aFilllnTheBlank message: queryString displayAt: aPoint 
centered: aBoolean 

FilllnTheBlankView on: aFillinTheBlank message: queryString displayAt: aPoint 
centered: aBoolean useCRController: anotherBoolean 


Creates a regular top view that has two subviews, a display-text view for 
the query string, and a fill-in-the-blank view for the user reply, initialized to 
the initial answer string already contained in the fill-in-the-blank instance. 
The top view's controller is a binary-choice controller. Either the center (if 
the centering parameter is true) or the top left corner (if it is false) of the 
window is positioned at the specified point. The fill-in-the-blank view uses a 
cr-fill-in-the-blank controller if the use-cr-controjler parameter is true; 
otherwise, it uses a fill-in-the-blank controfler. The view is returned. 


creating scheduled views that are started 


FilllnTheBlankView openOn: aFilllnTheBlank message: queryString 
displayAt: aPoint centered: aBoolean 


Differs from the above in that the top view/controller is a standard system 
view/controller and no cr-fill-in-the-blank controller is used. Also schedules 
and starts the view. 


private operations used by the above 


FilllnTheBlankView buildAnswerView: aFilllaTheBlank frameWidth: widthinteger 
FilllnTheBlankView buildMessageView: queryString 


controller access 


aFillinTheBlankView defaultControllerClass 


Returns class FilllnTheBlankController. 


The Basic Fill-In-The-Blank Operations 


We consider three of the above methods. Hopefully, they are self-explanatory. 


creating unscheduled views awaiting start up 
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FilllnTheBlankView on: aFilllnTheBlank message: queryString displayAt: aPoint 
centered: centerBoolean useCRController: useCRControllerBoolean 


"See comments above.” 
| topView messageView answerView | 
messageView < self buildMessageView: queryString. 
answerView e self 

buildAnswerView: 

aFilllnTheBlank frameWidth: messageView window width. 

useCRControllerBoolean 

ifTrue: [answerView controller: CRFillinTheBlankController new]. 
topView + View new 

model: aFilllnTheBlank; 

controller: BinaryChoiceController new; 

addSubView: messageView; 

addSubView: answerView below: messageView; yourself. 
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topView 
align: (centerBoolean 
ifTrue: [topView viewport center] 
ifFalse: [topView viewport topLeft)) 
with: aPoint; 
window: (0 @ 0 extent: messageView window width @ 
(messageView window height + answerView window height)); 
translateBy: (topView displayBox 
amountToTranslateWithin: Display boundingBox). 
TtopView 
private operations used by the above 
© — FilllnTheBlankView buildAnswerView: aFilllnTheBlank frameWidth: widthIinteger 
| answerView | 
answerView < self new 
model: aFillln TheBlank; 
window: (0@0 extent: widthInteger @ 40); 
borderWidth: 2. 
TanswerView 


© — FilllnTheBlankView buildMessageView: queryString 


| messageView | 
messageView < DisplayTextView new 
model: queryString asDisplayText; 
borderWidthLoft: 2 right: 2 top: 2 bottom: 0; 
insideColor: Form white; 
controller: NoController new. 
messageView 
window: (0@0 extent: (messageView window extent max: 200@30)); 
centered. 
TmessageView 


7.5 POP-UP BINARY TEXT-QUERY WINDOWS 


Pop-up binary text-query windows permit yes/no responses to text queries. The pop-up text- 
query windows are specialized so that the ‘yes/no’ text need not be explicitly typed; it is 
sufficient to click on one of two button windows. Fig. 7.11 illustrates what happens if the 
user refuses to make a selection. The view flashes (alternates very fast between the two 


variations shown), 


The binary text-query windows are implemented via binary-choice model-view- 
controller triples (see Fig. 7.12). These triples are constructed from instances of Binary- 
Choice, BinaryChoiceController, and BinaryChoiceView, which respectively inherit 


from Model, Controller, and View. 


Logically, a binary-choice MVC is also a special kind of a switch MVC that forces the 
user to choose between two possibilities. The binary-choice controller differs from the 
switch controller in refusing to relinquish control until a choice has been made. In particular, 
it is not a standard system controller to ensure that the view cannot be moved. The binary- 
choice model is designed so that the binary-choice controller can interrogate it to determine if 
a choice has been made. The binary-choice view displays a uscr query message along with a 
yes and no subview that can be clicked on to make a choice. It also switches to thumbs-up 


and thumbs-down cursors when the mouse enters the yes and no subviews respectively. 
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Can you draw a car tune? 


ove | e 


Can you draw a car tune? 


no 


Sy 


Figure 7.11 Binary text-query windows. 


Controller 
BinaryChoice BinaryChoiceController BinaryChoiceView 


Figure 7.12 Pop-up binary text-query windows: The BinaryChoice hierarchy. 


7.5.1 The BinaryChoice Protocol 


A binary-choice is a special kind of switch designed for interactive querying. The Binary- 
Choice class is typically sent a message that requires a yes/no reply. A special pop-up 
window is created to request the answer from the user. Binary-choice objects were designed to 
interact with binary-choice controllers and views. Unlike switches, they were not intended for 
isolated use. Hence, except for the special class querying messages, most of the protocol is a 
special case variant of the switch protocol. 


binary-choice querying 
* BinaryChoice message: queryString 
Creates a pop-up window with a query message that must be answered 
interactively by the user. The window is centered at the cursor point. If the 
user chooses yes, true is returned; otherwise, false. 
BinaryChoice message: queryString displayAt: aPoint ifTrue: trueAlternative 
BinaryChoice message: queryString displayAt: aPoint ifFalse: falseAlternative 
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BinaryChoice message: queryString displayAt: aPoint 

ifTrue: trueAlternative ifFalse: falseAlternative 

BinaryChoice message: queryString displayAt: aPoint centered: aBoolean 

ifTrue: trueAlternative ifFalse: falseAlternative 
Creates a pop-up window with a query message that must be answered 
interactively by the user. Either the center (if centered is true) or the top left 
corner (if centered is false; the default) of the window is positioned at the 
specified point. if the user chooses yes, the trueAlternative block (if 
provided) is executed; otherwise, the falseAlternative block (if provided) is 
executed. 


instance initialization 


aBinaryChoice initialize 

aBinaryChoice trueAction: aBlock 

aBinaryChoice falseAction: aBlock 
Respectively initializes the binary-choice object to indicate that no choice 
has yet been made, records the true-alternative block, and records the 
false-alternative block. 


executing the block corresponding to the chosen response 


© aBinaryChoice selectTrue 


aBinaryChoice selectFalse 
Records the fact that a choice has been made and executes the 
corresponding true- or false-alternative block if there is one. 


determining if a response has been made 


®*  aBinaryChoice actionTaken 


Records true if a choice has been made and false otherwise. 


interfacing with the view 


* aBinaryChoice active 


Always returns false; used in place of the ‘model isOn’ interrogation 
message for the yes and no switch views. 


7.5.2 The BinaryChoiceControlier Protocol 


The binary-choice controller is a controller that maintains control until the the model 
responds true to the message actionTaken. 


changes to the basic control operations 


* —aBinaryChoiceController isControlActive 


model actionTaken ifTrue: (Tfalse]. 
[super isControlActive] whileFalse: [view flash]. 
Ttrue 
° aBinaryChoiceController startUp 
Cursor normal showWhile: {super startUp] 


cursor positioning 


* — aBinaryChoiceController centerCursorinView 


Not actually used. 


Chapter 7 Pop-up Windows 325 


7.5.3 The BinaryChoiceView Protocol 


A binary-choice view constructs four views: a display-text view for the query message and a 
standard view to contain two switch views. The two switch views display yes and no 
respectively. Additionally, when the cursor enters the switch views, the cursor changes to 
either thumbs-up or thumbs-down respectively, 


class initialization 


*  BinaryChoiceView initialize 


Initializes the ThumbsUp and ThumbsDown class variables that are used as 
the switch cursors. 


instance creation and start up 


*  BinaryChoiceView openOn: aBinaryChoice message: queryString displayAt: aPoint 


centered: aBoolean 

Creates a pop-up window with a query message that must be answered 
interactively by the user. Depending on the value of centered, either the 
center or the top left corner of the window is positioned at the specified 
point. If necessary, the window is adjusted so that all of it is visible. The 
view is started up rather than being scheduled. If the user chooses yes, the 
true block in aBinaryChoice (if there is one) is executed; otherwise, the false 
block (if there is one) is executed. Does not return anything useful. 


used privately to construct switch views 


* ~~ BinaryChoiceView buildSwitchesFor: aBinaryChoice width: anlnteger 


Constructs a standard view containing a switch view for yes and another 
one for no. 


controller access 


© — aBinaryChoiceView defaultControllerClass 


Returns class BinaryChoiceController. 


Consider the open and build-switch methods below (slightly edited to make them more 
compact). Note that the open method (at the end) saves the form underneath the view prior to 
starling it up so as to restore it after it relinquishes control. Also, note that the switch views 
use the binary-choice instance message active as the switch interrogation message. Since it 
always returns false, the view will always be displayed in the off state. However, releasing 
the mouse button will provide a visual indication since the boundary is highlighted. Of 
course, the binary-choice view is immediately replaced by the saved form as it subsequently 
relinquishes control. 


instance creation and start up 


* — BinaryChoiceView openOn: aBinaryChoice message: queryString 


displayAt: aPoint centered: aBoolean 

"See comment above" 

| topView messageView switchView alignmentPoint savedArea | 

messageView e DisplayTextView new 
model: messageString asDisplayText; insideColor: Form white. 
controller: NoController new; centered; yourself. 

switchView <— self 
buildSwitchesFor: aBinaryChoice width: messageView window width. 
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topView < self new 
model: aBinaryChoice; addSubView: messageView; 
addSubView: switchView below: messageView; yourself. 
alignmentPoint e centered 
ifTrue: [switch View viewport center) 
ifFalse: [topView viewport topLeft]. 
topView 
align: alignmentPoint with: aPoint; borderWidth: 2; 
transiateBy: (topView displayBox 
amountToTranslateWithin: Display boundingBox),; 
insideColor: Form white; yourself. 
savedArea < Form fromDisplay: topView displayBox. 
topView display; controller startUp; release. 
savedArea displayOn: Display at: topView viewport topLeft 


used privately to construct switch views 


7.6 PIE MENUS! 


This example was inspired by a paper by Callahan et al.2 which presented an empirical 
comparison of pie menus and linear menus. Most menu-based systems use linear menus, 
where the items in the menu are arranged in a vertical fashion. Smalltalk uses pop-up lincar 
menus where the menu appears or “pops up” at the cursor point. Other systems such as the 


BinaryChoiceView buildSwitchesFor: aBinaryChoice width: aninteger 


| switchView yesSwitchView noSwitchView | 
switchView <— View new 
model: aBinaryChoice; controller: BinaryChoiceController new. 


yesSwitchView <— SwitchView new 
model: aBinaryChoice; label: 'yes' asParagraph; 
borderWidthLeft: 0 right: 2 top: 0 bottom: 0; 
selector: #active. 
(yesSwitchView controller) selector: #selectTrue; cursor: ThumbsUp. 
yesSwitchView window: (0@0 extent: 
anlnteger//2 @ yesSwitchView window height). 


noSwitchView + SwitchView new 

model: aBinaryChoice; label: 'no' asParagraph; 

selector: #active. 
(noSwitchView controller) selector: #selectFalse; cursor: ThumbsDown. 
noSwitchView window: (0@0 extent: 

aninteger//2 @ noSwitchView window height). 


switchView 
addSubView: yesSwitchView; 
addSubView: noSwitchView toRightOf: yesSwitchView; 
borderWidthLeft: 0 right: 0 top: 2 bottom: 0. 
TswitchView 


1 This example first appeared in the Journal of Object-Oriented Programming. This material is 
republished by kind permission of SIGS Publications, Inc. 


2 Callahan, J., Hopkins, D., Weiser, M., and Shneiderman, B., An Empirical Comparison of Pie vs. 
Linear Menus, Proceedings of ACM SIGCHI conference, Washington D.C., 1988, pp. 95-100. 
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Macintosh™ use pull-down linear menus, where the menu drops down from a menu bar at 
the top of the screen. 

Pic menus associate menu items with equal sized slices of a circular pie. As with 
linear menus, many variations of pie menus are possible. Pop-up (or Smalltalk style} pie 
menus might appear with their center at the cursor point (see Fig. 7.13), while pull-down 
(or Macintosh style) pie menus might be semicircular menus that drop down from a menu 
bar at the top of the screen. 


Figure 7.13 A simple pie menu. 


Pie menus have an advantage over linear menus in that selection is directional rather 
than positional. When a pie menu is activated the cursor is at the center of the pie. A user 
selects an item by moving the cursor in the direction of the item. Only a small movement is 
required to enter the appropriate slice of the pie and for the system to provide graphical 
feedback on the item selected. Moreover, as the cursor is moved away from the center, the 
precision required to select a slice diminishes rapidly. 

With a traditional linear menu, selection is achieved by moving the cursor vertically 
through the list of menu items. The mouse movement required is determined by the initial 
location of the cursor (usually either the first item or, as in Smalltalk, the item that was 
selected from the menu the last time it was used) and the position of the required item in the 
list. 


Disadvantages of pie menus include the additional display space they occupy relative to 
linear menus and the inadequacies (shared with linear menus) when the number of slices in 
the pie is large. For a full discussion of the relative merits of pie and linear menus, see the 
paper by Callahan. 


7.6.1 Implementing Pie Menus 


Recall that classes PopUpMenu and ActionMenu deviate from the standard Smalltalk model- 
view-controller (MVC) paradigm for constructing window classes. They can be viewed as 
combining the notion of a model, view, and controller into one object, themselves. They are 
not scheduled for execution — rather, they must be started up in the current process. When 
started, they pop up awaiting a user selection. While active, no other window can be 
activated. After the mouse button is depressed and released, the pop-up menu disappears. We 
adopt the same approach for pie menus. 
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Pie menus, as shown in Fig. 7.14, can be added to Smalltalk by defining two classes: 
Pie and PieMenu. Pie provides the capability for creating instances with any number of 
pieces (or slices) numbered 1, 2, 3, and so on and for labeling the slices. It is possible to 
have fewer labels than slices, although this feature has had little testing. A laissez-faire 
approach is used to initialize pies; e.g., if the radius or number of pieces is unspecified, a 
default is provided. Also, this design displays the labels outside the pie. Consequently, we 
distinguish between the pie's radius (that excludes the labels) and the pie's extent (which 
includes them). The radius and extent of the pie are determined by the number of slices and 
the size of the labels. For efficiency, the drawing for the pie, the labels, and the border are 
placed on a form called the background. Because of the laissez-faire approach, the 
background is computed at the latest possible moment — to permit the user to provide non- 
defaulted information. 


vatem Brawwser ae 


J System-Support 
J System-Changes i 
q System-Compiler|| rename print out PE 
q Files-Streams sE 
Files-Abstract 
i Menus 
add p rataca 
] example 1 
: "PieMenu example 1" 
eFilledPiehienu example 1 


labels: #({inspect insert remove) 
selectors: #(inspectField addField removeField)) 
startUp 


Figure 7.14 The new method category yellow button menu. 


Class Pie is shown next. Were it not for the parts concerned with layout, the 
implementation would be quite small. 
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Class Pie 


class name Pie 
superclass Object 
instance variable names center radius extent border slices labels background 


class methods 
examples 


examplet 
"Pie example1” 
TPie new 
radius: 40; pieces: 6; center: Display boundingBox center; display 


instance methods 
initialization 


computeLayout 
self positionParts; drawParts 


positionParts 
“Position the labels {assuming the center of the pie is 0@0) and determine the 
extent that encompasses both the pie and its labels (if not already provided).” 
| textHeight outsideRadius merge angle pen position box halfHeight | 


“First, determine the pie radius if not already provided.” 
radius isNil ifTrue: [ 
labels isNil 
if True: {radius — 60] 
ifFalse: [ 
textHeight < labels first extent y. 
outsideRadius < (labels size * textHeight) // 4 max: 60. "heuristic" 
radius e outsideRadius - 10]]. 


"Second, the label placement." 
merge < radius negated@radius negated corner: radius@radius. 
labels isNil ifFalse: [ 
angle < 360 // slices size. 
pen + Pen new up; turn: (angle // 2) negated. 
labels do: [:displayText | 
position & (pen 
place: 0@0; turn: angle; 
go: outsideRadius) location rounded. 
box e displayText boundingBox. halfHeight e box height // 2. 
position x >=0 
ifTrue: [box moveTo: position - (@@halfHeight)] 
ifFalse: [box moveTo: position - (box width@halfHeight)]. 
displayText offset: box origin. 
merge & merge merge: box]]. 


“Third, the extent.” 

extent isNil ifTrue: [ 
extent — (merge origin abs max: merge corner) * 2. "keep pie in center" 
extent e extent + (10@10) “extra white space" + (self border@self border)] 
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drawParts 
“Construct a background and the slices for later display.” 
background < Form extent: extent. 
self drawPie; drawSlices; drawLabels; drawBorder 


drawPie 
“Draw the pie border and the spokes on the background." 
| backgroundCenter pen angle | 


“First, the pie border." 

backgroundCenter + extent // 2. 

Circle new 
form: (Form extent: 2@2) black; radius: radius; 
center: backgroundCenter; displayOn: background. 


"Second, the spokes." 
pen < Pen new destForm: background. 
self pieces > 1 ifTrue: [ 
angle < 360 // self pieces. 
self pieces timesRepeat: [pen place: backgroundCenter; go: radius; turn: angle] 


drawSlices 
“Leave the slices unfilled.“ 
| aForm | 
aForm <— Form extent: 0@0. 
slices + (1 to: self pieces) collect: [:index | aForm] 


drawLabels 
"Display the labels." 
| backgroundCenter | 
labels isNil ifTrue: [Tself]. 
backgroundCenter < extent // 2. 
labels do: [:displayText | 
displayText displayOn: background at: backgroundCenter 
clippingBox: background boundingBox 
rule: Form under mask: Form black] 


drawBorder 
“Draw the border for the background.” 
background border: background boundingBox width: self border 


access and modification 


center 
Tcenter 
center: aPoint 
center — aPoint 


radius 
background isNil ifTrue: [self computeLayout]. 
Tradius 

radius: anintegerOrNil 
background < nil. radius e anlntegerOrNil 


extent 


background isNil ifTrue: [self computelayout]. 
Textent 
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extent: aPoint 
background < nil. extent < aPoint 


pieces 

slices isNil ifTrue: [11] ifFalse: [Tslices size max: 1] 
pieces: an|nteger 

background < nil. slices — Array new: aninteger 


labels 
labels isNil if True: [T#(]. 
Tlabels collect: [:displayText | displayText string] 
labels: labelArrayOrNil 
"There can be the same or fewer labels than pieces; if more, the extras are 
ignored." 
background < nil. labels e labelArrayOrNil. 
labelArrayOrNil isNil ifTrue: {Tself]. 
labels <— labels collect: [:string Í string asDisplayText] 


border 

border isNil ifTrue: [11] ifFalse: [Tborder] 
border: an|nteger 

border + anlnteger 


testing 


sliceContainingPoint: aPoint 
"Returns the slice number of the slice containing the point; 0 if none.” 
| difference totalAngle sliceAngle | 
difference < aPoint - center. 
difference r > radius ifTrue: [0]. 
totalAngle + (difference theta radiansToDegrees + 90.0) \ 360. “up is 0" 
sliceAngle e 360 // self pieces. 
TtotalAngle + sliceAngle - 1 // sliceAngle min: self pieces 


displaying 


display 
self displayBackground; displaySlice: 1 


displayBackground 
background isNil ifTrue: [self computeLayout]. 
background displayAt: center-(extent // 2) 


displaySlice: slicelndex 
| label | 
label — labels at: slicelndex. 
Display reverse: (center + label offset extent: label extent) 


The implementation of class PieMenu is simpler than class Pie. The standard protocol 
is sufficient for our needs, but as an experiment, consider changing all menus in the system 
to pie menus. To achieve this, we must ensure that the pie menu protocol includes the 
external protocol used by standard pop-up menus and action menus — what we have called 
the compatibility protocol. 
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The two most important methods are startUp WithHeading:at: and manageFeed- 
back. They are concerned with activating the menu (saving and restoring what is underneath 
and displaying the pie with visual feedback). In this case, when the mouse is in the it slice, 
the corresponding label is highlighted using reverse video. 


Class PieMenu 


class name PieMenu 
superclass Object 
instance variable names pie selectors selection 


class methods 
instance creation (standard protocol) 


labels: aCollection selectors: selectorArray 
"Returns a pie menu with specified labels and selectors." 
| labels aStream | 
(aCollection isKindOf: String) 
ifTrue: [ 
aStream e ReadStream on: aCollection. labels — OrderedCollection new. 
[aStream atEnd] whileFalse: [labels add: (aStream upTo: Character cr)]] 
ifFalse: [labels +- aCollection]. 
Tself new labels: labels selectors: selectorArray 


instance creation (compatability protocol) 


confrm 

“PieMenu confirm" 

T (self labels: ‘confirm\abort' withCRs selectors: nil) startUp = 1 
labelList: labelArray 

T self labelList: labelArray selectors: #() 
labelList: labelArray selectors: selectorArray 

Tself labels: labelArray selectors: selectorArray 
labels: labelArray lines: anArray 

Tself labels: labelArray lines: anArray selectors: #() 
labels: labelArray lines: anArray selectors; selectorArray 

"Ignore lines" 

Tself labels: labelArray selectors: selectorArray 


installing pie menus 


install 
“PieMenu install" 
“FilledPieMenu install” 
| position tabels item | 
PopUpMenu allinstancesDo: [:menu | 
position e 1. labels e OrderedCollection new. 
[litem e menu labelAt: position) isNil] whileFalse: [ 
labels add: item. position & position + 1]. 
menu become: (self labels: labels selectors: nil)). 
ActionMenu allinstancesDo: [:menu | 
position + 1, labels «e OrderedCollection new. 
[litem <— menu labelAt: position) isNil] whileFalse: [ 
labels add: item. position + position + 1]. 
menu become: (self labels: labels selectors: menu selectors)). 
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examples 


example 
“PieMenu example1” 
"FilledPieMenu example1“* 
(self 
labels: #(inspect insert remove) 
selectors: #HinspectField addField removeField)) startUp 


example2 
"PieMenu example2" 
“FilledPieMenu example2” 
(self 
labels: ‘inspect\insert\remove' withCRs 
selectors: #(inspectField addField removeField)) startUp 


example3 
"PieMenu example3" 
"FilledPieMenu example3" 
(self 
labels: #(red green blue white black orange pink purple brown) 
selectors: #(red green blue white black orange pink purple brown)) startUp 


instance methods 
instance initialization 


labels: labelArray selectors: selectorArray 
pie e Pie new pieces: labelArray size; labels: |abelArray. 
selectors < selectorArray. 
selection + 0 


accessing 


selectorAt: index 
Tselectors at: index 


controlling (compatability protocol) 


startUp: aSymbol withHeading: aText 


“Display the pie menu at the cursor point with title aText (translated if not 
completely on the screen). 
Tself startUpWithHeading: aText at: Sensor cursorPoint 


startUpAndWaitForSelectionAt: aPoint 
“Display the pie menu centered at aPoint (translated if not completely on the 
screen).” 
Tself startUpWithHeading: " at: aPoint 


controlling (standard protocol) 
startUp 
"Display the pie menu at the cursor point (translated if not completely on the 


screen)." 
Tself startUpWithHeading: " at: Sensor cursorPoint 
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startUpWithHeading: aString at: aPoint 


“Display the pie menu with a heading at the point (translated if not completely on 
the screen)," 


| title titteBorder pieBox titleBox delta savedArea | 
title — aString asDisplayText. 
titleBorder e aString size > 0 
ifTrue: [Rectangle left: 2 right: 2 top: 2 bottom: 1] 
ifFalse: [0]. 
pieBox + aPoint - (pie extent // 2) extent: pie extent. 
titleBox < title boundingBox expandBy: titleBorder. 
titleBox moveTo: pieBox origin - (O@titleBox height). 
delta — (pieBox merge: titleBox) amountToTranslateWithin: Display boundingBox. 
pieBox moveBy: delta. titleBox moveBy: delta. 
pie center: pieBox center. 


savedArea <— Form fromDisplay: (pieBox merge: titleBox). 
Cursor normal showWhile: [ 
aString size > 0 ifTrue: [ 
title displayAt: titleBox origin + (titleBorder@titleBorder). 
Display border: titleBox width: titleBorder mask: Form black). 
pie displayBackground. 
Sensor cursorPoint: pie center. 
Sensor waitButton. 
[Sensor anyButtonPressed)} whileTrue: [self manageFeedback)]. 
savedArea displayOn: Display at: titleBox origin. 
Tselection 


manageFeedback 
“If the cursor is inside the pie menu, highlight the selected slice." 
| slicelndex | 
slicelndex — pie sliceContainingPoint: Sensor cursorPoint. 
slicelndex = 0 ifTrue: [Tself}. 
pie displaySlice: slicelndex. 
[(selection e pie sliceContainingPoint: Sensor cursorPoint) = slicelndex) while True: [ 
Sensor anyButtonPressed ifFalse: [Tself]]. 
pie displayBackground. 


7.6.2 Modifying the Existing System to Use Only Pie Menus 


To change the existing system so that all pop-up and action menus are pie menus, it is 
necessary to ensure (1) that all new menus are pie menus, and (2) that all old menus are 
converted. The first requirement can be satisfied (as an experiment only) by modifying 
existing methods in the system; or more specifically, by changing the following methods in 
classes PopUpMenu and ActionMenu. 


Changes to Class PopUpMenu 


instance methods 
instance creation 


labelList: labelArray 
TPieMenu labelList: labelArray 


labels: fabelArray lines: anArray 
TPieMenu labels: labelArray lines: anArray 
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Changes to Class ActionMenu 


class methods 
instance creation 


labelList: labelArray selectors: selectorArray 
TPieMenu labelList: labelArray selectors: selectorArray 


labels: labelArray lines: anArray selectors: selectorArray 
TPieMenu labels: {abelArray lines: anArray selectors: selectorArray 


instance methods 
action symbols 


selectors 
Tselectors 


The second requirement can be satisfied by executing the method install, which 


identifies all existing instances of classes PopUpMenu and ActionMenu and mutates them 
into corresponding pie menus. 


7.6.3 Filled Pies 


Rather than indicating selections by reversing the appropriate label, it might be nicer to have 
the pie slice itself turn black. We can add this pie and pie menu variation with the 
introduction of only three methods. The filled pie menus now appear as shown in Fig. 7.15. 
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Class FilledPie 
class name FilledPie 
superclass Pie 


instance variable names “none” 
instance methods 
initialization 


drawSlices 


“Draw the slices onto separate forms.” 


| backgroundCenter angle pieOrigin offset sliceCenter sliceExtent pen slice 
interiorPoint | 


backgroundCenter < extent // 2. angle — 360 // self pieces. 
pieOrigin < backgroundCenter - (radius@radius). 

offset — pieOrigin x negated@pieOrigin y negated. 
sliceCenter + radius@radius. sliceExtent e sliceCenter*2. 


pen <+ Pen new destForm: background; turn: (angle // 2) negated; up. 


slices + (1 to: self pieces) collect: [:index | 
slice — Form extent: sliceExtent. 
background displayOn: slice at: offset. 
interiorPoint e (pen place: sliceCenter; turn: angle; go: radius//2; location) 
rounded. 
slice shapeFill: Form black interiorPoint: interiorPoint. 
slice] 
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displaying 


displaySlice: slicelndex 
(slices at: slicelndex) displayOn: Display at: center-(radius@radius) 
clippingBox: Display houndingBox 
rule: Form under mask: Form black 


example 1 
"Pie example 1" 
tPie new 


center: Disg explain 
display 


spawn 


format 


cancel 


accept 


napact ~ Sprint it 


Figure 7.15 Yellow button menu using filled pies. 


The problem with the filled pie menus is speed. To fill a slice of the pie, we use the 
form operation ‘shapeFill: aMask interiorPoint: interiorPoint’, which fills an enclosed 
region with a mask given a point lying within the region. This operation is much too slow 
to dynamically invert pie slices as a user moves the cursor over them in a pie menu. 

To mitigate this problem, we precompute forms containing the filled pie slices 
whenever a filled pie menu is created. The initial creation of the menu is slow, but once 
initialized in this way, filled pies perform satisfactorily. An interesting artifact of this 
approach was the discovery that some menus (e.g., the System Menu) are created once when 
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first activated, while other menus (e.g., the Method Category Pane Menu in a class browser) 
are recreated cach time they are used. The former menus appear very quickly on all 
activations except the first, while the latter suffer an initial delay caused by the 
recomputation of the slice forms every time they are used. 


Class FilledPieMenu 


class name FilledPieMenu 
superclass PieMenu 
instance variable names "none" 


class methods 

no messages 
instance methods 
instance initialization 


labels: labelArray selectors: selectorArray 
pie < FilledPie new pieces: labelArray size; labels: labelArray. 
selectors < selectorArray. 
selection + 0 


Our limited experience using the pie menus suggests that movement within entries in 
the pie is fast and convenient but that it takes some time to become familiar with the 
position of commonly used menu items within the pie. Readers may wish to implement 
other pie menu variations, such as pies where the text lies within the pie slices and the 
display form itself is circular (see Fig. 7.13), semicircular pull-down pie menus, or even 
hierarchical pie menus. 


7.7 SUMMARY 


This chapter has provided the details of pop-up windows that appear suddenly when an 
interaction request is required and then immediately disappear after an appropriate reply. In 
particular, we have discussed the following notions: 


¢ The model, view, and controller hierarchies associated with pop-up windows. 


¢ The distinction between pop-up menu windows that provide users with a choice of 
menu entries to select from and pop-up text-query windows that are used to request 
a textual response to some query. Pop-up binary text-query windows are a special 
case in which the response is either yes or no. 


* Examples detailing the creation and activation of each variety of pop-up windows. 


* The detailed protocol for pop-up menu windows — classes PopUpMenu and 
ActionMenu. 


¢ The detailed protocol for pop-up text-query windows — the four MVC classes 
FillInTheBlank, FillInTheBlank View, and CRFillInTheBlankController (and its 
substitute FillinTheBlankController). 
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e The detailed protocol for pop-up binary text-query windows — the three MVC 
classes BinaryChoice, BinaryChoice View, and BinaryChoiceController. 


* A detailed example dealing with the design and implementation of pie menus. 


7.8 EXERCISES 


The following exercises may require some original thought, rereading some of the material, 


andlor browsing through the system. 


1. Create a pop-up menu to choose be- 5. Use a text-query window to obtain a 
tween ‘mean/vegetables/fruits’ and point from the user. You will have to 
for each selection, create a new pop- convert the string that is returned 
up menu with specific entries. from the text request. 

2. Design a multi-level pop-up menu 6. How do you ask for a multi-line res- 
that returns a collection of integer ponse to a question? 
choices (one per level). The previons 7. Create an aggravation window that 
example could be done with one inual] il th 
multi-level pop-up menu continually pops up until the user an- 

: swers yes. To be more interesting, 

3. Design a class of pop-up menus that the window could traverse the screen 
is supplied with an array of blocks to alternately from left to right and 
be executed when a selection is made. tight to left. A suitable question 
Consider whether the block should be might be “Are you angry yet?” 
provided with the selection index es : 

: 8. Implement variations on the pie 
and/or a rectangle denoting the : ; ` 
: menus introduced in this chapter, 
selected menu entry. With the latter À : 
; : : such as pies where the text lies 
information, for instance, secondary sata : i f 
within the pie slices and the display 
pop-up menus could be made to : Eyen : 
> R $ form itself is circular (see Fig. 7.13), 
appear at the selection point. This icircul lld : 
would work well only if the Sees a 1 ONE: pIe MENUS, or 
associated menu block were executed EVED er ener on pIE MENYS: 
before closing the pop-up menu. 

4. Design a multi-response pop-up menu 
that permits a user to select many en- 
tries at once (perhaps only when the 
shift key is down, for example). The 
result would be a collection of selec- 
tion indices. 

7.9 GLOSSARY 

classes 

ActionMenu A class of pop-up menu win- view's model. Yellow button menus for 

dows that combines the notion of a model, pluggable windows must be action menus. 


view, and controller into one; differs from 
PopUpMenu by providing an array of 
selectors parallel to the menu items. The 
selectors are usually used to process the BinaryChoiceController The controller class 
selected item; e.g., by using it to send a for pop-up binary text-query windows. 
processing message to some appropriate 


BinaryChoice The model class for pop-up bi- 
nary text-query windows. 
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BinaryChoiceView The view class for pop-up 
binary text-query windows. 


CRFillInTheBlankController A controller 
class for pop-up text-query windows; 
similar to a FillInTheBlankControl- 
ler but also permits acceptance to be 
signaled by typing return (CR is short for 
carriage return). 


FillInTheBlank The model class for pop-up 
text-query windows. 


FillinTheBlankController A controller class 
for pop-up text-query windows; a special 
kind of string holder controller that forces 
a user response; e.g., by flashing until its 
request is satisfied. After typing a res- 
ponse (if different from the sample res- 
ponse), the user can signal acceptance by 
choosing accept in a yellow button pop- 
up menu. 


class variables 


ThumbsDown A class variable in Binary- 
ChoiceView containing the form that 
indicates no. 


selected terminology 


pop-up binary text-query windows A confirmer 
window. 


pop-up menu Short for pop-up menu win- 
dow. 


pop-up menu window An interactive window 
for selecting between a number of menu 
items. All items in the pop-up menu are 
displayed one above the other; no scroll- 
ing is needed. 


pop-up text-query window A pop-up window 
used to request a textual response to some 
query; pop-up binary text-query 
windows are a special case in which the 
response is either yes or no. 


FillInTheBlankView The view class for pop- 
up text-query windows. 


PopUpMenu A class of pop-up menu win- 
dows that combines the notion of a model, 
view, and controller into one; maintains a 
user-specifiable string of menu items sepa- 
rated by carriage returns and an array spe- 
cifying the item after which a line is to 
be drawn. If no lines are desired, the latter 
can be omitted. 


ThumbsUp A class variable in Binary- 
ChoiceView containing the form that 
indicates yes. 


pop-up window A window that appears sudden- 
ly when an interaction request is required 
and then immediately disappears after an 
appropriate reply. They exist in two varie- 
ties: pop-up menu windows and pop- 
up text-query windows. 
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A Window Application 


8.1 INTRODUCTION 


Application specific windows are difficult to create. The task becomes simpler with more 
experience but it never becomes easy. Designing windows is primarily an interactive process 
because the visual effect is all-important. Even an experienced designer will find designing 
window-based applications to be an error-prone and time-consuming process. 


Our goal here is twofold: (1) to provide more experience with windows, and (2) to 
provide a tool, a window maker, that will simplify this task. The window maker is 
designed to be used by relatively experienced programmers who understand the notion of 
pluggable views. It is not intended to completely eliminate the programming process; i.e., it 
will still be necessary to write the methods that provide the interface between the window 
(and subwindows) and the application model. 


We will begin with an application that actually uses the window maker — a librarian 
for creating and storing libraries of forms. This will provide us with an opportunity to use 
the window maker before we get into specifics of its design and implementation. Next, we 
consider extensions to pluggable views that will support the window maker. A goal was to 
avoid modifications to existing system classes. Unfortunately, two modifications had to be 
made. The window maker is considered last. 


8.2 A FORM LIBRARIAN 


The form librarian permits a user to create, edit, and store forms. It also provides a new 
class of forms that has two display images — one when it is off and another when it is on. 
We call them forms with highlight — the form itself provides the off image; its highlight 
provides the on image. We needed a form librarian so that we could provide users with useful 
switches. Only three kinds of switches have been provided so far. An example of the form 
librarian editor is shown in Fig. 8.1. 


ere 
st 


Librarian 


Figure 8.1 The form librarian editor. 


Although the form librarian permits us to make and delete libraries, as shown in 
Fig. 8.2, we only used it to create the default library with the blank, button, and check 
forms. We use the latter two extensively in the window maker. 


Librarian 


o 


DefanitFo 
butto $ 
check 


delete library : 


Figure 8.2 The form librarian editor can be used to create new libraries. 
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Once a library is created, we can add forms to it or modify existing forms. The check 
highlight form in Fig. 8.3, for example, was created by copying the button form and then 
editing it. Choosing ‘edit off-form’ or ‘edit on-form’ pops up a bit editor that can be used to 
edit the form. 


CefaultForrcicibe 


i EA 


on form É 


$ 
& 


create off- and on-forms T cei one iis os tae nuelion copying selection 
copy off-form to on-farm 
| copy on-form to off-form | 


edit off-form 
edit on-form 


Figure 8.3 The form librarian editor can be used to edit the library forms. 


The form librarian editor consists of six subwindows: (1) a menu window to select 
libraries, (2) a menu window to select forms in that library, (3) two picture forms that 
display the text ‘off form’ and ‘on form’ respectively, and (4) two more dynamic picture 
forms that actually display the form image and its highlight. 


8.2.1 Forms with Highlight 


We began by creating the FormWithHighlight class and providing it with the following very 
simple protocol. Basically, a form with highlight is a form that carries an additional form — 
its highlight. It is up to the user to explicitly use the highlight. The reader might wish to 
consider a more advanced design that keeps track of a state to determine whether or not to 
display itself on or off. 
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Class FormWithHighlight 


class FormWithHighlight 
superclass Form 
instance variables highlight 


class methods 
instance creation 


extent: aPoint highlight: aForm 
T(self extent: aPoint) highlight: aForm 


from: aForm 
Tself extent: aForm extent) 
offset: aForm offset; 
bits: aForm bits deepCopy 


instance methods 
access and modification 


highlight 
Thighlight 

highlight: anotherForm 
highlight e anotherForm 


copying 


asForm 
TiForm extent: self extent) 
offset: self offset; 
bits: self bits deepCopy 


deepCopy 
Tsuper deepCopy highlight: highlight deepCopy 


printing 


storeOn: aStream 
“Re-creates the receiver assuming there is no circularity." 
aStream nextPut: $(. 
super storeOn: aStream. 
aStream nextPutAll: ' highlight: *. 
highlight storeOn: aStream. 
aStream nextPut: $). 


8.2.2 Form Libraries 


A form library was then provided. It is essentially a dictionary with a name. We considered 
having it inherit from dictionary (indeed this was our original design). However, we found 
that the code was not portable. Some Smalltalk systems could not properly handle a subclass 
that added named instance variables to one that already had indexed instance variables. Note 
that the initialization code for the default library was actually obtained by inspecting it after 
we constructed it with the library editor. It was then easy to obtain store strings for the 
forms it contained. 
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Class FormLibrary 


class FormLibrary 
superclass Object 

instance variables name dictionary 
class variables DefaultFormLibrary 


class methods 
class initialization 
initialize 
“FormLibrary initialize" 
DefaultFormLibrary isNil ifTrue: [ 
DefaultFormLibrary <— FormLibrary new name: #DefaultFormLibrary. 
DefaultFormLibrary 
at: #blank 
put: ((FormWithHighlight extent: 15@15) highlight: (Form extent: 15@15)). 
DefaultFormLibrary 
et: #button 
put: ((FormWithHighlight 
extent: 15@15 
fromArray: #(0 1984 6192 12312 8200 16388 16388 16388 16388 
16388 8200 12296 6192 1984 0) 
offset: 0@0) 
highlight: (Form 
extent: 15@15 
fromArray: #(0 1984 6192 12312 8200 17284 18372 18372 
18372 17284 8200 12312 6192 1984 0) 
offset: 0@0)). 
DefaultFormLibrary 
at: #check 
put: ((FormWithHighlight 
extent: 15@15 
fromArray: #(65534 32770 32770 32770 32770 32770 32770 32770 
32770 32770 32770 32770 32770 32770 65534) 
offset: 0@0) 
highlight: (Form 
extent: 15@15 
fromArray: #(65534 32770 32818 32818 32866 32866 32962 
32962 45442 45442 39682 40706 36354 33794 66534) 
offset: 0@0))). 
reinitialize 
“FormLibrary relnitialize” 
DefaultFormLibrary é nil. 
self initialize 


instance creation 


new 
Tsuper new initialize 


instance methods 
instance initialization 
initialize 
dictionary + IdentityDictionary new 
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naming 


name 
Tname 
name: aString 
name < aString asSymbol 


access and modification 


at: key 

Tdictionary at: key asSymbol 
at: key ifAbsent: aBlock 

Tdictionary at: key asSymbol ifAbsent: aBlock 
at: key put: aForm 

Tdictionary at: key asSymbol put: aForm 


printing 


printOn: aStream 
aStream nextPutAll: ‘FormLibrary '; nextPutAll: name; space. 
dictionary printOn: aStream 


operations normally inherited 


includesKey: aKey 
Tdictionary includesKey: aKey 


Tdiction ary keys 
removeKey: aKey 
Tdictionary removeKey: aKey 


8.2.3 Form Librarians 


The form librarian is a model for an editor that permits form libraries to be constructed, 
changed, and extended. By using the window maker to construct the window that displays it, 
it must subscribe to the pluggable views philosophy. Consequently, the fact that two menu 
subwindows are used (see Figs. 8.1, 8.2, and 8.3) implies that the model must be able to 
keep track of (1) the libraries and the library name selected (the leftmost menu subwindow), 
in addition to (2) the library itself and the form in it that is selected. A preliminary design 
might include the following: 


Class FormLibrarian 


class FormLibrarian 

superclass Model 

instance variables libraries librariesSelection library librarySelection 
class variables KnownLibraries 


class methods 
class initialization 


initialize 
“FormLibrarian initialize” 


KnownLibraries isNil ifTrue: [KnownLibraries e IdentityDictionary new] 


346 Inside Smalltalk 


rejnitialize 
“FormLibrarian relnitialize” 


KnownLibraries e IdentityDictionary new 
instance creation 


new 
Tsuper new initialize 


querying 


allLibraries 
“FormLibrarian allLibraries inspect" 
| result | 
result <— IdentityDictionary new. 


Filla allinstances do: [:aLibrary | result at: aLibrary name put: aLibrary]. 
result 


formForLibraryName: libraryName formName: formName 
T(self libraryForName: libraryName) 
at: formName asSymbol 
ifAbsent: [ 
self error: ‘library ', libraryName, ‘ does not contain form name ', formName] 


formForPathName: path 
Tself formForLibraryNamoe: (path at: 1) formName: (path at: 2) 


libraryForName: libraryName 
| fibrarySymbol | 
librarySymbol e libraryName asSymbol. 
FormLibrary alllnstances do: [:aLibrary | 
aLibrary name == librarySymbol if True: (TaLibrary]]. 
self error: ‘library ', librarySymbol, ' does not exist' 


pathNameForForm: aForm 
FormLibrary alllnstances do: [:aLibrary | 
aLibrary keys do: [:key | 
(aLibrary at: key) == aForm 


z ifTrue: [Array with: aLibrary name with: key asSymbol}]]. 
nil 


instance methods 
instance initialization 


initialize 
libraries <— FormLibrarian allLibraries. 
librariesSelection <— nil. 
library < nil. 
librarySelection + nil 


external queries 
seloctedForm 
librarySelection isNil 


ifTrue: (Till 
ifFalse: [Tlibrary at: librarySelection] 
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selectedFormName 
TlibrarySelection 


soelectedLibrary 
T library 
solectedLibraryName 
TlibrariesSelection 


selectedPathName 
“Returns nil or a pair denoting #(libraryName formName).” 
librarySelection isNil 
ifTrue: (Till 
ifFalse: [TArray with: library name with: librarySelection] 


external modification 


library: libraryName form: formName 
librariesSelection <— libraryName asSymbol. 
library <+ librariesSetection isNil ifTrue: [nil] ifFalse: [libraries at: librariesSelection]. 
librarySelection + formName asSymbol 


selectedPathName: path 
“Changes the current path so that views on the librarian displays these as the 
current selections." 
librariesSelection e (path at: 1) asSymbol. 
library + libraries at: librariesSelection. 
librarySelection + (path at: 2) asSymbol 


en ETP TE 
Hom oO 


Figure 8.4 The preliminary icons for the librarian editor. 
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So far, the librarian protocol has not considered the window interface. We begin (as a 
novice might) by using the window maker to create the desired subwindows and thereby 
determine what that additional protocol should be. An initial session with the window maker 
might result in the icons shown in Fig. 8.4. 

After suitably resizing the icons, aligning them, and providing them with borders and 
relevant backgrounds, the window might appear as in Fig. 8.5. Note that we have resized the 
window maker to encapsulate the icons exactly. 


Wi in dow Maker 


zoom in 
t 
text | menu peitot lcture e EEEN 


| off form form 


getMenu getMenu 


on | on form 


Figure 8.5 The finalized icons for the librarian editor. 


At any point (before the window is output), it is necessary to have specified the 
external interface for each of the subwindows. A sample external interface pop-up menu for 
the leftmost menu window is shown in Fig. 8.6. In this case, the designer is about to 
change the name of the message to be used by the window for getting the menu entries. 


Chapter 8 A Window Application 349 


je on be aie » EOM Poe 


model get TAE enuArray 


“other examples: 
model getMenudArrayFor: #names 
model getMenuArrayFor: ’method’ suffix: ’ category’ 


comment: The get-menu-array message is used by the menu 
window to ask the model for the permanent menu entries to be 
displayed, 


when used: This message is sent to the model (1) when the window 
is initially displayed and (2) each time it reacts to a ‘self changed: 
#updateSymbol’ message sent by the model, 


Figure 8.6 Setting up the external interface for a menu window. 


To produce the form librarian editor window of Fig. 8.3 which is partially constructed 
in Fig. 8.5, the designer had to provide the following interface information interactively. In 
general, the details differ for each kind of subwindow. 


For the left menu subwindow: 


update symbol: #libraries 
getMenu: model getLibrariesList 
getSelection: model getLibrariesSelection 
changeSelection: model changeLibrariesSelection: #selection 
getYellowMenu: model getLibraries YellowMenu 

For the right menu subwindow. 
update symbol: #library 
getMenu: mode! getLibraryList 
getSelection: model getLibrarySelection 
changeSelection: model changeLibrarySelection: #selection 
getYellowMenu: model getLibraryYellowMenu 

For the top dynamic picture subwindow (below text ‘off form’): 
update symbol: #pictures 
getLabel: model getOffForm 

For the bottom dynamic picture subwindow (below text ‘on form’): 
update symbol: #pictures 
getLabel: model getOnForm 
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To consider one example, suppose the user selects a new library in the left menu 
subwindow of the librarian editor. As a result, the menu subwindow will send message 
changeLibrariesSelection: to the model (a librarian). The parameter #selection specified 
above is replaced by the actual selection when the message is sent. As a result, the model 
must change its current librariesSelection (the name) and consequently librarySelection (the 
library with that name). To ensure that the second menu window removes the entries for the 
old library, the model need only send a ‘self changed: #library’ message. The second menu 
subwindow will use its own protocol for getting up-to-date entries and a new selection (in 
this case, no selection). Additionally, the on and off dynamic pictures must also change. 
This is done by the model sending itself a ‘self changed: #pictures’ message. The librarian 
protocol for doing all of this is provided next: 


libraries window messages 


gotLibrariesList 
Tlibraries keys asSortedCollection asArray 


getLibrariesSelection 
TlibrariesSelection 


changeLibrariesSelection: aStringOrNil 
librariesSelection = aStringOrNil ifTrue: itself. 
librariesSelection <— aStringOrNil. 
library e librariesSelection isNil 
ifTrue: [nil] 
ifFalse: [libraries at: librariesSelection asSymbol). 
librarySelection < nil. 
self changed: #library. 
self changed: #pictures 


getLibrariesYellowMenu 
TActionMenu 
labels: ‘add library\delete library’ withCRs 
lines: #() 
selectors: #(addLibrary deleteLibrary) 


library window messages 


getLibraryList 
librariesSelection isNil 
ifTrue: (TArray new] 
ifFalse: [Tlibrary keys asSortedCollection asArray] 


getLibrarySelection 
librarySelection 


changeLibrarySelection: aStringOrNil 
librarySelection = aStringOrNil if True: [T self]. 
librarySelection e aStringOrNil. 
self changed: #pictures 
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getLibraryYellowMenu 
TActionMenu 

labels: (’create white off- and on-forms\’, 
‘create off- and on-forms by copying selection\’, 
‘copy off-form to on-form\copy on-form to off-form\’, 
‘delete off- and on-forms\’, 
‘edit off-form\edit on-form') withCRs 

lines: #(2 4 5) 

selectors: #(createWhiteOffAndOnForms createOffAndOnFormsFromSelection 
copyOffFormToOnForm copyOnFormToOffForm deleteOffAndOnForms 
editOffForm editOnForm) 


picture windows messages 


getOffForm 
librarySelection isNil 
ifTrue: {TForm extent: 0@0] 
ifFalse: [Tlibrary at: librarySelection] 


getOnForm 


| offForm | 
librarySelection isNil 
ifTrue: [ÎForm extent: 0@0] 
ifFalse: [ 
offForm < library at: librarySelection. 
loffForm respondsTo: #highlight) 
ifTrue: (ToffForm highlight] 
ifFalse: [TForm extent: 0@0]) 


By far, the greater amount of code is required to support the yellow button menu 
selections, since there are so many of them. 


libraries window menu messages 


addLibrary 
|I newName |! 
newName & self newLibraryNameAndifNone: [Tnit]. 
libraries at: newName put: (library <— FormLibrary new name: newName). 
KnownLibraries at: newName put: library. 
librariesSelection < newName. librarySelection & nil. 
self changed: #libraries. 
self changed: #library. 
self changed: #pictures 


deleteLibrary 

| newName | 
self verifyLibrarySelectionAndlfNone: [fnil]. 
KnownLibraries 

removeKey: librariesSelection 

ifAbsent: [ 

rd confirm: ‘cannot delete since not owned by librarian. Proceed to cancel’, 
nill. 

libraries removeKey: librariesSelection ifAbsent: []. 
librariesSelection e nil. library < nil. librarySelection <— nil. 
self changed: #libraries. 
self changed: #library. 
self changed: #pictures 
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libraries window menu messages support 


newLibraryNameAndlifNone: aBlock 
"Returns a name for a new library; an empty string indicates cancelation. If this 
name is already in use, reports the problem and repeats the process unless the user 
elects to quit (in this case, returns the result of executing the block}." 
| request newName | 


request <— [FilllnTheBlank 
request: ‘Specify a name for the new library’ 
initialAnswer: 'unusedName’]. 

request size = 0 ifTrue: {TaBlock value “cancel requested"). 


[libraries includesKey: (newName < request value asSymbol)] whileTrue: [ 
(self confirm: ‘Name already exists. Try again?') ifFalse: (TaBlock value]]. 


TnewName 


verifyLibrarySelectionAndlfNone: aBlock 
“If no library has been selected, complains and executes the block." 


librariesSelection isNil ifTrue: [ 
self confirm: 'You must first select a library\Try again?’. 
aBlock value] 


library window menu messages 


createWhiteOffAndOnForms 
| newName size | 


(self confirm: 'You will be prompted with the form name\’, 
‘and then for the size of the form to be used.\Continue?’ withCRs) ifFalse: [Tnil]. 


newName <- self newFormNameAndlfNone: [Tnill. 


(self confirm: ‘The form size can be specified as a point or interactively.\’, 
"The interactive approach is less accurate.\', 
"Do you wish to specify it as a point?’ withCRs) 
ifTrue: [ 
size — Compiler 
evaluate: (FilllnTheBlank request: ‘Form size?’ initialAnswer: '16@16')] 
ifFalse: {size — Rectangle fromUser extent). 


library 

at: newName 

put: (FormWithHighlight extent: size highlight: (Form extent: size)). 
self changed: #library. 
self changed: #pictures 


createOffAndOnFormsFromSelection 
| newName | 
self verifyFormSelectionAndlfNone: [Tnil]. 
newName < self nawFormNameAnd!fNone: [Tnill. 


library at: newName put: (library at: librarySelection) deepCopy. 


librarySelection e newName. 
self changed: #library 
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copyOffFormToOnForm 
| offForm | 
self verifyFormSelectionAndifNone: [Înil]. 
offForm < self selectedForm. 
(offForm isKindOf: FormWithHighlight) 
ifTrue: [offForm highlight: offForm asForm] 
ifFalse: [ 
offForm become: 


((FormWithHighlight from: offForm) highlight: offForm deepCopy)]. 


self changed: #pictures 


copyOnFormToOffForm 
l offForm | 
self verifyFormSelectionAndifNone: {Îni!]. 
offForm < self selectedForm. 
(offForm isKindOf: FormWithHighlight) 
ifTrue: [ 
offForm extent: offForm highlight extent. 
offForm offset: offForm highlight offset. 
offForm bits: offForm highlight bits deepCopy] 
ifFalse: [offForm white "there isn't any on form"). 
self changed: #pictures 


deleteOffAndOnForms 
self verifyFormSelectionAndlfNone: {Thill. 
library removeKey: librarySelection. 
librarySelection < nil. 
self changed: #library. 
self changed: #pictures 


editOffForm 
self verifyFormSelectionAnd!fNone: [Tnil]. 
(library at: librarySelection) bitEdit. 
self changed: #pictures 


editOnForm 
| offForm | 
self verifyFormSelectionAndlfNone: [Tnil]. 
offForm < self selectedForm. 
(offForm isKindOf: FormWithHighlight) 
ifFalse: [ 
offForm become: 
((FormWithHighlight from: offForm) 
highlight: (offForm deepCopy white))]. 
offForm highlight bitEdit. 
self changed: #pictures 


library window menu messages support 


verifyFormSelectionAndlfNone: aBlock 
“If no form has been selected, complains and executes the block." 


librarySelection isNil ifTrue: [ 
self confirm: ‘You must first select a form\Try again?'. 
aBlock value} 
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newFormNameAndlfNone: aBlock 
“Returns a name for a new form; an empty string indicates cancelation. If this name 
is already in use, reports the problem and repeats the process unless the user elects 
to quit {in this case, returns the result of executing the block).” 
| request newName | 


request <— [FilllnTheBlank 
request: ‘Specify a name for the new form’ 
initialAnswer: 'unusedName']. 

request size = 0 ifTrue: [TaBlock value “cancel requested"). 


[library includesKey: (newName + request value asSymbol)] whileTrue: [ 
(self confirm: 'Name already exists. Try again?') ifFalse: {TaBlock value]). 


TnewName 


The methods supporting the protocol required by the subwindows can be implemented 
at any time; i.e., either before, during, or after the session with the window maker. In any 
case, the window maker session is ended by generating a method that creates a window 
whose subwindows follow the specified protocol. This method could be generated either in 
encoded form or as standard code (the former being substantially more compact). 
Additionally, it can be generated either as a top view or a subview. 

Since we want to be able to use the library editor as a component of the window 
maker, we generated it as a subview (see method subview that follows; it's not encoded). So 
that the librarian editor can be used independently of the window maker, we also constructed 
a top view that uses the subview as a subwindow (see method topView that follows; it's 


Window Maker 


oh external Foo as 


delete (Q@delete) 
copy (@c} 


external 


group (@g) 
ungroup (@u 
border/color 


external interface 


envelope icons 
expand a bit 
shrink a bit 


make method 
help 


Figure 8.7 Creating a top view with an external subwindow. 
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encoded). The window maker permits an externally constructed subview to be used via an 
external icon (see Fig. 8.7) that externally references the method for constructing the 


subview. 
To compress (or decompress) the view, it is sufficient to execute ‘WindowMaker edit: 


FormLibrarian topView’, for example, and choose a different option when the method is 


generated. 
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class methods 


“FormLibrarian edit" 
WindowMaker open: self topView on: FormLibrarian new 


“Returns an initialized view." 
| anArray | 


anArray < "WindowMaker edit:" #(Master nil {-286 -201 286 201) white 2 


(1.11518 1.12944 320.0 227.599) true ‘Librarian’ (nil) (nil) (0 0) (1000 
1000) (classMethod notEncoded FormLibrarian view topView ‘view overflow’) 
((External nil (-284.0 -199.0 284.0 199.0) nil O (FormLibrarian subView)))). 


Ta nArray 


“Returns an initialized view.“ 
| anArray aView | 


anArray <— "WindowMaker edit:" #(Master librarian (-222 -179 222 180) white 


O (1.43652 1.2647 320.0 227.039) false nil (nil) (nil) (250 100) (1000 1000) 
(classMethod notEncoded FormLibrarian view subView ‘view overflow’) 
((Menu nil (-222.0 -179.0 -74.0 180.0} white (0 0 1 0) (libraries (getLibrariesList) 
(getLibrariesSelection) (changeLibrariesSelection: aSelectionObject} 
(getLibrariesYellowMenu))) (Menu nil (-74.0 -179.0 78.0 180.0) white 

(0 0 1 0) (library (getLibraryList) (getLibrarySelection) (changeLibrarySelection: 
aSelectionObject) (getLibraryYellowMenu))) (Picture nil (143.0 87.0 158.0 102.0) 
white 0 (form DefaultFormLibrary button) (lockedConstant fixCenter 0) 
(pictures (getOnForm))}) (Picture nil (143.0 -88.0 158.0 -73.0) white 0 

(form DefaultFormLibrary button) (lockedConstant fixCenter 0) (pictures 
(getOffForm))) (Picture nil (78.0 -179.0 222.0 -142.0) white (0 0 0 1) 

itext ‘off form’) (varying) (nil (nil))) (Picture nil (78.0 -3.0 222.0 34.0) white 

(0 10 1) (text ‘on form’) (varying) (nil (mil))))). 


aView + (ExtendedView new 


name: #librarian; 
encoding: anArray; 
insideColor: Form white; 
borderWidth: 0; 
window: (-222@-179 corner: 222@180); 
transformation: (WindowingTransformation 
scale: 1.43652@1.2647 translation: 320.0@227.039); 
yourself). 
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aView addSubView: ((ExtendedMenuView on: nil 
printltems: true oneltem: false 
aspect: #libraries 
change: (ExtendedMessage 
selector: #changeLibrariesSelection: arguments: #(aSelectionObject)) 
list: #getLibrariesList 
menu: #getLibrariesYellowMenu 
initialSelection: #getLibrariesSelection) 
name: nil; 
insideColor: Form white; 
borderWidthLeft: 0 right: 1 top: 0 bottom: 0; 
window: (-222.0@-179.0 corner: -74.0@180.0):; 
transformation: (WindowingTransformation scale: nil translation: 0@0); 
yourself), 


aView addSubView: ({ExtendedMenuView on: nil 
printitems: true oneltem: false 
aspect: #library 
change: (ExtendedMessage 
selector: #changeLibrarySelection: arguments: #(aSelectionObject)) 
list: #getLibraryList 
menu: #getLibraryYellowMenu 
initialSelection: #getLibrarySelection) 
name: nil; 
insideColor: Form white; 
borderWidthLoft: 0 right: 1 top: 0 bottom: 0; 
window: (-74.0@-179.0 corner: 78.0@180.0); 
transformation: (WindowingTransformation scale: nil translation: 0@0); 
yourself). 


aView addSubView: ((ExtendedPictureView on: nil 
aspect: #pictures 
label: #(DefaultFormLibrary button) 
getLabel: #getOnForm) 
name: nil; 
insideColor: Form white; 
borderWidth: 0; 
window: (143.0@87.0 corner: 158.0@102.0); 
transformation: (WindowingTransformation scale: nil translation: 0@0); 
mode: #constant; 
fixCenter; 
yourself). 


aView addSubView: ((ExtendedPictureView on: nil 
aspect: #pictures 
label: #(DefaultFormLibrary button) 
getLabel: #getOffForm) 
name: nil; 
insideColor: Form white; 
borderWidth: 0; 
window: (143.0@-88.0 corner: 158.0@-73.0); 
transformation: (WindowingTransformation scale: nil translation: 0@0); 
mode: #constant; 
fixCenter; 
yourself). 
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aView addSubView: ((ExtendedPictureView on: nil 
aspect: nil 
label: 'off form’ asParagraph 
getLabel: nil) 
name: nil; 
insideColor: Form white; 
borderWidthLeft: 0 right: 0 top: 0 bottom: 1; 
window: (78.0@-179.0 corner: 222.0@-142.0); 
transformation: (WindowingTransformation scale: nil translation: 0@0); 
mode: #varying; 
fixMiddleLeft; 
yourself). 


aView addSubView: ((ExtendedPictureView on: nil 
aspect: nil 
label: 'on form' asParagraph 
getLabel: nil) 
name: nil; 
insideColor: Form white; 
borderWidthLeft: 0 right: 0 top: 1 bottom: 1; 
window: (78.0@-3.0 corner: 222.0@34.0); 
transformation: (WindowingTransformation scale: nil translation: 0@0); 
mode: #varying; 
fixMiddleLeft; 
yourself). 

TaView 


8.3 EXTENDED VIEWS 


Originally, an attempt was made to construct windows that used the existing system window 
classes. As the window maker evolved, it became increasingly difficult to reconcile the 
existing classes with the design goals. By the time the design was finished, these included 
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1. 
2. 


A facility for referencing subwindows by name. 


A facility that permits preprocessing when a window is opened and postprocessing 
when it is closed. 


An extension that permits all view messages to be provided with an arbitrary 
number of constant parameters. Switch views, for example, already permit this, 
but none of the other classes of windows did. 


Special windows that permit capabilities totally missing from the existing 
system; e.g., switches with constant-size forms, dynamic pictures (unlike 
switches, depressing a mouse over a picture has no effect), external reference 
windows. 


Changes to the standard method for computing the display transformation that 
eliminates the built-in imprecision (see Fig. 3.7 in Sect. 3.3.1 or Sect. 8.3.2). 
Without this, consecutive side-by-side subwindows would unpredictably overlap 
borders (when they shouldn't). 


Infinite loop protection for the change/update protocol for all application 
windows. 
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In the end, it was easiest to provide a new class of windows for each of the existing 
ones, including one new one. Figs. 8.8 and 8.9 provide a summary. Except for 
ExtendedExternal View, every other view is an extension of a corresponding view already in 
the system; i.e., all (and only) new classes are prefixed by ‘Extended’. In most cases, the 
corresponding controller was used without modification. The two exceptions are 
ExtendedMenuController and ExtendedS witchController. 


Wy\ 
ExtendedPicture View 


ExtendedTextView List View ExtendedSwitch View 
SelectionInList View 
ExtendedMenu View 


Figure 8.8 The extended views. 


Controller 


SelectionInListController SwitchController 
ExtendedMenuController ExtendedSwitchController 


Figure 8.9 The extended controllers. 


8.3.1 Common Extensions 
Three extensions are common to the extended views: 

1. A naming facility. 

2. A model initialization facility. 

3. A modified algorithm for computing display transformations. 

Since few of the extended classes inherit from a common extended class, adding a 
special class containing the extensions and then using multiple-inheritance to share them 
with all extended classes seemed attractive. As we will see, this new class introduced seven 
new methods to be shared. In our case, multiple-inheritance is something we considered after 


the fact since the extensions evolved piece-meal; i.e., first two methods, then four, then five, 
and finally seven. Using multiple-inheritance, however, causes four inheritance conflicts. To 
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eliminate these, four distinct methods had to be physically added to each extended class. On 
the one hand, we wanted to use multiple-inheritance to avoid duplicating seven methods; on 
the other, we had to duplicate four others. Clearly, the win was marginal. In the end, we 
decided not to use multiple-inheritance. 


Class Extended...View 


class Extended...View 
superclass woh 
instance variables name... 


instance methods 
name 


name 
Tname 
name: aSymbolOrNil 
name <- aSymbolOrNil 


viewNamed: aSymbol 
| answer | 
name == aSymbol ifTrue: (Tself]. 
subViews do: [:aView | 
answer + aView viewNamed: aSymbol. answer isNil ifFalse: [Tanswer]l. 


Thil 
model 


models: anObject 
“If this view's model is nil, changes it to anObject and repeats the process for all 
subviews; otherwise, does nothing." 
model isNil ifFalse: (Tself]. 
self model: anObject. 
subViews do: [:aView | aView models: anObject] 


resetModols 
"Sets this view's model to nil and repeats for all subviews." 
self model: nil. 
subViews do: [:aView | aView resetModels] 


displaying 


computeDisplayTransformation 
“Since the borders in the containing view do not actually scale, this view (if left 
unchanged) will be positioned at a point that assumes the borders did scale. This 
can be eliminated by transforming into the inset display box rather than the display 
box. See View | computeDisplayTransformation for the difference." 


self isTopView 
if True: [Ttransformation] 
ifFalse: [TsuperView insetDisplayTransformation compose: transformation] 


insetDisplayTransformation 
“Ignores the borders." 
TWindowingTransformation 
window: self insetWindow 
viewport: self insetDisplayBox 


The naming facility provides advanced designers with the ability to reference and 


manipulate specific windows associated with their application models. We use it, for 
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example, to (1) reactivate the window maker window after an options window is closed, and 
to (2) reference a librarian subview to enable the model to interact directly with it. 

The model initialization facility permits a whole collection of windows to be 
initialized to the same model. Moreover, those that are already initialized are unmodified. In 
most cases, this is used invisibly by extended standard system views when an application 
window is opened. However, it could be used explicitly for special preopening processing. 


8.3.2 The Revised Display Transformation Algorithm 


The existing algorithm for computing display transformations works most of the time but it 
is unreliable. Typically, a window designer has three tasks to perform: (1) choosing 
appropriate subwindows, (2) specifying and implementing the interface for the subwindows, 
and (3) specifying a layout. For illustrative purposes (see Fig. 8.10), suppose our task is to 
position the subwindow w exactly inside the superwindow sw so that the superwindow's 
borders touch it exactly. This layout is most easily specified interactively by placing the 
subwindow into its container superwindow. 


Figure 8.10 Mapping the window into the superview's window. 


This layout process is entirely equivalent to providing the system with the local 
transformation for the subwindow; i.e. 


localTransformationy is the mapping from w into sw. 


Generally, the superwindow is resized and positioned when it is opened. Suppose the 
superwindow was made five times bigger on the screen, as in Fig. 8.11. The system 
maintains a transformation from the existing superwindow to its new position and size called 
the display transformation; i.e., 


displayTransformationsy is the mapping from the original sw to the resized sw. 


A display transformation is also needed to determine where w resides on the screen. 
The subwindow's display transformation is computed as follows: 


displayTransformationy is displayTransformationgy compose: localTransformationy. 
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Because the resized superwindow sw is so large (five times bigger), it should be clear 
that the border is five times bigger. Hence, the resized window (resized w) is placed directly 
inside the larger border. The system, however, refuses to draw larger borders; they end up 
being drawn in the original size. So what the user sees is his original subwindow w resized 
in such a way that it does not touch the borders of the resized superwindow sw. 


Resized sw 


Figure 8.11 When the superview is enlarged (exaggerated). 


Why isn't this more evident in the system? The answer is simple. The superwindow is 
generally large to begin with. Resizing rarely results in a magnification larger than 1.4. 
When this magnified border width is rounded to integer coordinates, it usually works out to 
be the original size. However, if the magnification were 1.6, a noticeable 1-pixel gap would 
result. Of course, if the window is made smaller by a factor of five, the converse occurs. The 
border shrinks by a factor of five but actually gets drawn in the original size. Hence, part of 
the resized subwindow w gets covered. Generally, the only way to get the subwindow exactly 
right with the existing algorithm is to overcompensate. If you expect the superwindow to be 
magnified, have the subwindow encroach into the superwindow's border. Conversely, if you 
expect it to be shrunk, inset the subwindow away from the superwindow's border. It is 
impossible to make it work for both possibilities, and it is quite error prone. 

A solution that eliminates these problems is quite simple — simply change the mean- 
ing of the local transformation so that borders are not part of the transformation. Instead of 
having the local transformation map from the window to the superwindow, have the local 
transformation map from the window to the inset superwindow (the part without the 
borders). Now, however, there is a mismatch when composing transformations. To couple 
properly, we need to instead compose this modified transformation with one that maps inset 
superwindows to inset resized superwindows; i.e., 


insetDisplayTransformationgy is 

the mapping from the original inset sw to the resized inset sw. 
displayTransformationy is 

insetDisplayTransformationgy compose: localTransformationy. 
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Now, w via localTransformationw maps exactly inside the borders of sw; the inset 
window for sw maps exactly, via insetDisplayTransformationsy, to the resized inset 
window. Since the normal display transformation for w is supposed to map w into the 
resized inset window, the composition of these two mappings is what is needed. In each 
case, the mappings are exact and overcompensation is no longer required. 


8.3.3 Similar Operations 


There are also a number of conversion and copy methods different for each class but with the 
same basic structure. For reference purposes, we have gathered them together in 
Appendix B.1. We don't consider method storeOn: that follows to be a good candidate for 
multiple-inheritance, for example, because it generates a conflict in each class. Conse- 
quently, it must be explicitly added in each class anyway to eliminate the conflict. An 
example taken from extended menu views is shown. 


copying 


Y 
Tself shallowCopy 


printing 


superView: nil; resetSubViews; 

model: model deepCopy controller: nil; 
transformation: transformation “stores a copy"; 
window: window "stores a copy’; 

yourself 


storeOn: aStream 
self storeOn: aStream indent: 2 


storeOn: aStream indent: indentation 
"Store this instance of an ExtendedMenuView with indentation for readability." 
i return continue | 
return <— (WriteStream on: (String new: 16)) crtab: indentation; contents. 
continue < °;', return. 
aStream 


nextPutAll: '((ExtendedMenuView on: nil’; nextPutAll: return; 

nextPutAll: 'printitems: true oneltem: false’; nextPutAll: return; 

nextPutAlll: ‘aspect: '; store: partMsg; nextPutAll: return; 

nextPutAll: ‘change: '; store: changeMsg; nextPutAll: return; 

nextPutAll: ‘list: '; store: listMsg; nextPutAll: return; 

nextPutAll: 'menu: '; store: menuMsg; nextPutAll: return; 

nextPutAlll: 'initialSelection: '; store: initialSelectionMsg; nextPut: $); 
nextPutAll: return; 

nextPutAll: ‘name: '; store: name; nextPutAll: continue; 

nextPutAll: ‘insideColor: '. 


ExtendedStandardSystemView storeInsideColor: insideColor on: aStream. 


aStream nextPutAll: continue. 
ExtendedStandardSystemView 
storeBorderWidth: borderWidth messageOn: aStream. 
aStream nextPutAll: continue; 
nextPutAll: 'window: '; store: window; nextPutAll: continue; 
nextPutAll: ‘transformation: ('; print: transformation; nextPut: $); 
nextPutAll: continue; 
nextPutAll: ‘yourself)’ 


Chapter 8 A Window Application 


363 


8.3.4 System Modifications 


Recall that our goal was to design the window maker via extensions to the systems; i.e., by 
providing additions but not modifications. Unfortunately, two different kinds of 
modifications were required: 


1. 


The storeOn: method for literal arrays incorrectly prints subarrays if these 
subarrays are large. More specifically, elements of these large subarrays are 
truncated using a dot-dot-dot notation; e.g., they might store as #(1 2 3 (45 6 
..€tc...) 2000 2001) where “...etc...” is explicitly part of the store string. 


The compiler has an extremely useful feature whereby users can provide a 
requestor for handling error messages. When an error is detected, the compiler 
sends the requestor a notify: message with the error message string as a parameter 
(or it sends variants of this notify: message with additional parameters). This is 
used by the browser, for example, to obtain and display the error message in the 
code pane. Unfortunately, the compiler doesn't follow this protocol for all error 
messages. Four cases have been inadvertantly omitted. 


The source of the first problem can be seen by considering the actual Array instance 
methods that follow. If an array to be stored is a literal (see storeOn: below), a subarray 
element is stored using printOn:. In the situation that the subarray contains more than 
maxPrint elements, it is truncated. It turns out that this actually occurs for some encodings 
(actually arrays) of the windows used by our window maker. 


printing 


isLiteral 


“Answer whether all the elements of the array are literal.” 


a detect: [:element | element isLiteral not] ifNone: [Ttruel. 
false 


printOn: aStream 


“Append to the argument, aStream, the elements of the Array enclosed by 
parentheses." 


| tooMany | 

tooMany < aStream position + self maxPrint. 

aStream nextPut: $(. 

self do: [:element | 
aStream position > tooMany ifTrue: [aStream nextPutAll: '...etc...)'. T self). 
element printOn: aStream. 
aStream space]. 

aStream nextPut: $) 


storeOn: aStream 
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“Append to the argument aStream a sequence of characters that is an expression 
whose evaluation creates an object similar to the receiver. Use the literal form if 
possible.” 


self isLiteral 
ifTrue: [ 
aStream nextPut: $#; nextPut: $(. 
self do: [:element | element printOn: aStream. aStream space]. 
aStream nextPut: $)] 
ifFalse: [super storeOn: aStream] 
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One solution is to eliminate the problem temporarily by making the value returned by 
method maxPrint in class Collection larger; e.g., by changing the existing value from 1000 
to 10000 as shown next. 


private 


maxPrint 
“Answer the maximum number of characters to print with printOn:.” 


T10000 


A better solution is to replace printOn: in the storeOn: method by storeOn:. 
However, it does introduce superfluous “#’ symbols. 


The second problem needs to be fixed to permit an application window generated as a 
method by the window maker to be split into several picces when it is too large to compile 
as one method. Two critical pieces of information are stored in an instance of class Parser 
prior to parsing the source code: (1) the requestor, and (2) a block called the fail block that 
also gets executed after error notification has occurred. If an error is encountered during 
parsing (and scanning), the requestor is notified. Once parsing is complete, the requestor and 
fail blocks are destroyed. Unfortunately, four potential error situations are possible after that 
point. Since the requestor is no longer available, they are reported as follows: 


self error: 'Too many temporary variables’ 
self error: ‘Too many literals referenced’ 
self error: ‘Compiler stack discrepancy’ 
self error: ‘Compiler code size discrepancy' 


Our solution is to prevent the destruction of the requestor and fail block by com- 
menting out two assignments in the following Parser instance method. 


public access 


parse: sourceStream class: class noPattern: noPattern context: ctxt 
notifying: req ifFail: aBlock 
“MODIFIED not to destroy the requestor or fail block.” 


.. only the modified part is shown ... 


encoder < “failBlock +- requestor +" parseNode < nil. 
“break cycles & mitigate refct overflow" 


.. more code follows ... 


If this is done, we need only find a way to notify the requestor instead of generating a 
standard error message. The error messages are generated in an instance method of class 
MethodNode. As it turns out, the instance of Parser previously mentioned is kept in a 
MessageNode instance variable called encoder. The encoder relays notify: messages to the 
requestor in the Parser instance. 


The short of it is that it is sufficient to replace the four occurrences of 
‘self error: aString’ by ‘encoder notify: aString’ in the following MethodNode instance 
method. 
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code generation 


generateAt: aRemoteString 
“MODIFIED by replacing 4 occurrences of ‘self error: ...” by ‘encoder notify: ...’." 
“| am the root of a parse tree; answer with an instance of CompiledMethod.” 


. only the modified parts are shown... 


.. encoder notify: ‘Too many temporary variables’ ... 
.. encoder notify: ‘Too many literals referenced’ ... 
... encoder notify: ‘Compiler stack discrepancy’ ... 

.. encoder notify: ‘Compiler code size discrepancy’ 


.. more code follows... 
8.3.5 The ExtendedMessage Class 
One of our goals is to permit interface messages to have any number of constant parameters. 


This could be done with the existing Message class. However, we wanted a few additional 


methods to simplify its use. Class ExtendedMessage was added to avoid modifying the 
system. 


Class ExtendedMessage 


class ExtendedMessage 
superclass Message 
instance variables “none” 


instance methods 
sending 


sendTo: receiver 
Treceiver perform: selector withArguments: args 


sendTo: receiver replacingParameter: aninteger by: anObject 
Treceiver 
perform: selector 
withArguments: (args copyReplaceFrom: aninteger to: aninteger 
with: (Array with: anObject)) 


printing 


storeOn: aStream 
“Same as Message storeOn: but with the class name changed.” 


aStream 
nextPut: $(; 
nextPutAll: self class name; 
nextPutAll: ' selector: '; store: selector; 
nextPutAll: ' arguments: '; store: args; 
nextPut: $) 
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8.3.6 The ExtendedStandardSystemView Class 


The ExtendedStandardSystem View class incorporates the common extensions along with a 
few others. These include the following: 


1. Extensions for preprocessing by the model before the view (window) is opened 
(handled via a special open method) and postprocessing after it is closed (handled 
by overidding method release). 


2. Printing support (class methods) for the other extended views. 
3. Compilation support (plus class methods) also used by class ExtendedView. 
4. Support to maintain and extract a window encoding. 


Generally, the window maker allows designers to create windows with large numbers 
of subwindows. In some cases, the generated methods may be too large for successful 
compilation. In that case, the method is automatically partitioned into several pieces and 
compiled separately. For this to work, it is necessary to be able to attempt compilation and 
to get feedback from the compiler when unsuccessful. Error messages to the user must be 
avoided. The solution is to provide an error notifier as a parameter to the compiler. This 
notifier gets control when an error is encountered. To support this easily, we introduced a 
class called ErrorHandler. Class method tryCompiling:class:classified: in Extended- 
StandardSystemView uses it. Finally, the size of each of the pieces is a function of the 
capability of the existing compiler. Our goal is to have the fewest number of pieces as 
possible; hence the largest possible number of subwindow initialization in each method. We 
introduce a class variable CompilationHeuristic that keeps track of the size (number of 
pieces) of the last successfully compiled method and adjusts it dynamically. Because of their 
length, most of the compilation methods have been placed in Appendix B.2. 


Class ErrorHandler 


class ErrorHandler 
superclass Object 
instance variables errorBlock 


instance methods 
instance initialization 


errorBlock: aBlock 
errorBlock e aBlock 


error handling 


notify: aString at: anlnteger in: aStream 
errorBlock value: aString value: aninteger 
select 


“Ignore” 
selectFrom: start to: end 
“Ignore” 
selectinvisiblyFrom: start to: end 
“Ignore” 
selectioninterval 
11 to: 0 
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Class ExtendedStandardSystemView 


class ExtendedStandardSystemView 

superclass StandardSystemView 

instance variables name preOpeningSelector postClosingSelector encoding 
class variables CompilationHeuristic 


class methods 
compiling support 


compile: view intoClass: class method: methodName category: categoryName 
"Compile the receiver into the specified class." 
Tself compile: view intoClass: class method: methodName category: categoryName 
overFlowCategory: categoryName, ' overflow’ 


compile: view intoClass: class method: methodName category: categoryName 
overFlowCategory: overflowCategoryName 
“Compile the receiver into the specified class." 
Tself compileQneOrMoreMethods: view intoClass: class method: methodName 
category: categoryName overFlowCategory: overflowCategoryName 


private compiling support 


tryCompiling: aMethodString class: class classified: aCategoryString 
“Returns true if compilation is successful; false otherwise. Note: this method is 
invoked rather than executing the code inline to force compiler data structures to 
disappear (it only happens when a return from compile:classified:notifying: occurs 
or the error block is executed)." 
| notifier | 
notifier e ErrorHandler new errorBlock: {:message :position | Tfalse). 
a compile: aMethodString classified: aCategoryString notifying: notifier. 
true 


.. see Appendix B.2 for additional operations ... 
private printing support 


storeinsideColor: insideColor on: aStream 
insideColor isNil ifTrue: [TaStream nextPutAll: ‘nil']. 
#(black darkGray gray lightGray veryLightGray white) do: [:candidate | 
(insideColor == (Form perform: candidate)) 
ifTrue: (TaStream nextPutAll: 'Form '; print: candidate]). 
self error: ‘unknown insideColor' 


storeBorderWidth: borderWidth messageOn: aStream 
borderWidth = ((O@0 extent: 0@0) translateBy: borderWidth left) 
ifTrue: [ 
aStream nextPutAll: 'borderWidth: '; store: borderWidth left] 
ifFalse: [ 
aStream 
nextPutAll: ‘borderWidthLeft: '; store: borderWidth left; 
nextPutAll: ' right: '; store: borderWidth right; 
nextPutAll: ' top: '; store: borderWidth top; 
nextPutAlk ' bottom: '; store: borderWidth bottom] 
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storeEncoding: encoding on: aStream indent: indentation 
"Store the windowMakerEncoding with indented line continuations (assuming lines 
of approximately 80 characters)." 


| return internalStream leaderSize size character start end | 

return <— (WriteStream on: (String new: 16}) ertab: indentation; contents. 
internalStream e- ReadWriteStream on: (String new: 10000). 
internalStream nextPutAll: "WindowMaker edit:” '; store: encoding; reset. 


leaderSize < return asDisplayText width //'' asDisplayText width. 
size — leaderSize + ‘encoding: ' size. 
[internalStream atEnd] whileFalse: [ 
character <— internalStream next. 
character = $' 
ifTrue: [ 
size > 80 ifTrue: [aStream nextPutAll: return. size <— leaderSize]. 
internalStream skip: -1. start — aStream position. 
linternalStream peek == $'] whileTrue: [ 
aStream 
nextPut: internalStream next; 
nextPutAll: (internalStream upTo: $'); 


nextPut: $']. 
end <— aStream position. size <— size + (end - start)] 
ifFalse: [ 
character = $ 
ifTrue: | 
internalStream peek == $) “eliminate space in ' )'" 
ifTrue: [ 


aStream nextPut: internalStream next. 
size — size + 1] 
ifFalse: [ 
size > 80 
ifTrue: [ 
aStream nextPutAll: return. 
size <— leaderSize] 
ifFalse: [ 
aStream nextPut: character. 
size — size + 1]]} 
ifFalse: [aStream nextPut: character. size < size + 1]]] 


instance methods 


name 
model 
displaying 
a. See COMMON extensions ... 


copying 
printing 
... see Appendix B.1 ... 


encoding 
encoding 
Tencoding 


encoding: anArray 
encoding + anArray 
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preopening/postclosing selectors 


preOpeningSelector 


preOpeningSelector 


preOpeningSelector: aSymbolOrNil 
preOpeningSelector < aSymbolOrNil 


postClosingSelector 
TpostClosingSelector 


postClosingSelector: aSymbolOrNil 
postClosingSelector — aSymbolOrNil 


opening and preopening 


open 
preOpeningSelector isNil ifFalse: [ 
(preOpeningSelector isKindOf: Message) 
if True: [preOpeningSelector sendTo: model replacingParameter: 1 by: self] 
ifFalse: {model perform: preOpeningSelector with: self]. 
self controller open 


openOn: aModel 
preOpeningSelector isNil 
ifTrue: [self models: aModel] 
ifFalse: ( 
(preOpeningSelector isKindOf: Message) 
ifTrue: [ 
preOpeningSelector sendTo: model replacingParameter: 1 by: self] 
ifFalse: [model perform: preOpeningSelector with: self]]. 
self controller open 


postclosing 


release 
postClosingSelector isNil ifFalse: [ 
(postClosingSelector isKindOf: Message) 
ifTrue: [postClosingSelector sendTo: model replacingParameter: 1 by: self] 
ifFalse: [model perform: postClosingSelector with: self]]. 
super release 


compiling 


compilelntoClass: class method: methodName category: categoryName 
"Compile the receiver into the specified class.” 


ExtendedStandardSystemView 
compile: self intoClass: class method: methodName category: categoryName 


compilelntoClass: class method: methodName category: categoryName 
overflow: overflowName 
“Compile the receiver into the specified class." 


ExtendedStandardSystemView 
compile: self intoClass: class method: methodName 
category: categoryName overFlowCategory: overflowName 
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8.3.7 The ExtendedView Class 


The ExtendedView class is similar to the ExtendedStandardS ystem View class but lacks the 
preopening and postclosing facility. 


Class ExtendedView 


class ExtendedView 
superclass View 
instance variables name encoding 


instance methods 


name 
model 
displaying 
... S66 Common extensions ... 


encoding 


encoding 
Tencoding 
encoding: anArray 
encoding + anArray 


copying 
printing 
.. see Appendix B.1 ... 


compiling 


compileintoClass: class method: methodName category: categoryName 
"Compile the receiver into the specified class." 
ExtendedStandardSystemView 
compile: self intoClass: class method: methodName category: categoryName 


compilelintoClass: class method: methodName category: categoryName 
overflow: overflowName 
"Compile the receiver into the specified class.” 
ExtendedStandardSystemView 
compile: self intoClass: class method: methodName 
category: categoryName overFlowCategory: overflowName 


8.3.8 The ExtendedMenuView Class 
The ExtendedMenuView class extends SelectionInListView (a pluggable view) in three ways: 
1. The interface selectors (categories updating and adaptor) are augmented to permit 


extended messages instead of simple selector symbols. The extension is upward 
compatible. 


Chapter 8 A Window Application 371 


2. An infinite loop tolerance mechanism is added to ensure that messages 
‘self changed: #updateSymbol’ by the model will not result in an infinite loop 
when an update is already in progress. 


3. A corresponding controller was also added because the existing one did not permit 
control for menus that were empty. Hence the yellow button pop-up menu could 
never get activated. Aside from additions to the menu by the model, this pop-up 
menu is the most obvious way of permitting a user to interactively add entries 
(see the ‘add libraries’ entry in the librarian editor for an example). 


Some small additional perturbations were introduced. These can be determined from the 
methods. 


Class ExtendedMenuView 


class ExtendedMenuView 
superclass Selection|InListView 
instance variables name updatelnProgress ignoreChangeMessage 


instance methods 
initialization 
on: anObject printltems: flag1 oneltem: flag2 aspect: m1 change: m2 list: m3 menu: m4 
initialSelection: m5 
“Override Selection|InListView to avoid getting and changing the initial list until 
after the view is opened." 
self model: anObject. 
printitems < flag1. oneltem <— flag2. 
partMsg < m1. changeMsg < m2. listMsg — m3. menuMsg e m4. 
initialSelectionMsg e m5. 
oneltem ifTrue: [ 
self noTopDelimiter noBottomDelimiter. 
initialSelectionMsg == nil ifTrue: [ 
self error: ‘initialSelection must be specified for oneltem mode']]. 
“Commented out the following: 
self list: self getList " 


name 
model 
displaying 
see common extensions {see below for an addition to displaying) 


copying 
printing 

... see Appendix 8.1 ... 
controller 


defaultControllerCiass 
TExtendedMenuController 


list access 


list: anArray 
“Eliminate built-in update in progress loop; more specifically, avoid changing the list 
selection to what it is." 


ignoreChangeMessage e true. super list: anArray. ignoreChangeMessage < nil 
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updating 


aspect: aSymbol 
partMsg < aSymbol 


update: aSymbo! 
“Upward compatible with selection|InList views.” 


updatelnProgress isNil ifFalse: {Tself]. updatelnProgress < true. 
super update: aSymbol. updatelnProgress < nil 


adaptor 

getList 
(listMsg isKindOf: Message) ifTrue: [TlistMsg sendTo: model]. 
Tsu per getList 

initialSelection 
{initialSelectionMsg isKindOf: Message) 


if True: [TinitialSelectionMsg sendTo: modell. 
Tsuper initialSelection 


changeModelSelection: aninteger 
“Get the new menu list's selection unless requested not to do so." 
| newSelection | 
ignoreChangeMessage isNil ifFalse: [Tself]. 
self controller controlTerminate. 
(changeMsg isKindOf: Message) 
ifTrue: [ 
newSelection + aninteger = 0 
iffrue: [nil] 
ifFalse: (itemList at: anInteger]. 
changeMsg sendTo: model replacingParameter: 1 by: newSelection] 
ifFalse: [| super changeModelSelection: aninteger). 
self controller controllnitialize 


yellowButtonMenu 
{(menuMsg isKindOf: Message) ifTrue: [TmenuMsg sendTo: model]. 
Tsu per yellowButtonMenu 


displaying 
displayView 
"Ensure that the item list is set up when the view is first displayed.” 


itemList size = 0 ifTrue: (self list: self getList]. 
super displayView 


Class ExtendedMenuController 


class ExtendedMenuController 
superclass Selection|InListController 
instance variables "none" 


class methods 
no messages 
instance methods 
control defaults 


isControlWanted 
Tself viewHasCursor 
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8.3.9 The ExtendedTextView Class 


Like the ExtendedMenuView class, class ExtendedTextView extends the TextView class (a 
pluggable view) in three ways. The first two are similar but the third is unique to this class. 
1. The interface selectors (categories updating and adaptor) are augmented to permit 
extended messages instead of simple selector symbols. The extension is upward 
compatible. 


2. An infinite loop tolerance mechanism is added to ensure that messages 
‘self changed: #updateSymbol’ by the model will not result in an infinite loop 
when an update is already in progress. 

3. An explicit instance variable (aspect) for keeping track of the update symbol is 
added. The system class insists that this be the same as the getText (instance 
variable getMsg) message. There is no need for the two names to be correlated. 


Class ExtendedTextView 


class ExtendedTextView 
superclass TextView 
instance variables name aspect updatelnProgress 


class methods 
instance creation 


on: anObject aspect: aSymbol get: getMsg change: changeMsg menu: menuMsg 
Tisuper on: anObject aspect: getMsg change: changeMsg menu: menuMsg) 
aspect: aSymbol 


instance methods 


name 
model 
displaying 
+. See common extensions ... 


copying 
printing 
». see Appendix B.1 ... 


updating 


aspect: aSymbol 
aspect + aSymbol 


update: aSymbol 
“Upward compatible with text views; i.e. missing aspect results in using the 
partMsg selector instead." 
| actualAspect | 
updatelnProgress isNil ifFalse: [Tself]. 
updatelnProgress <~ true. 
actualAspect < aspect isNil 
ifTrue: [ 
(partMsg isKindOf: Message) 
ifTrue: [partMsg selector] ifFalse: [partMsg]] 
ifFalse: [aspect]. 
actualAspect == aSymbol ifTrue: [super update: partMsg]. 
updatelnProgress < nil 
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adaptor 
accept: aText from: aController 
(acceptMsg isKindOf: Message) 
ifTrue: (TacceptMsg sendTo: model replacingParameter: 1 by: aText]. 
Tsu per accept: aText from: aController 


getText 
(partMsg isKindOf: Message) ifTrue: (TpartMsg sendTo: model]. 
super getText 


yellowButtonMenu 
(menuMsg isKindOf: Message) ifTrue: {TmenuMsg sendTo: model]. 
Tsuper yellowButtonMenu 


8.3.10 The ExtendedExternalView Class 


The ExtendedExternalView class provides an indirect reference to an extended view. It is 
provided mainly. to support external windows constructed by the window maker. With small 
extensions to the window maker, they could be eliminated. 


Class ExtendedExternalView 


class ExtendedExternalView 
superclass View 
instance variables name className newMessage 


class methods 


no messages 
instance methods 


instance initialization 


external: anArray 
“Initializes the external view by obtaining the subview denoted by the parameter: 
anArray having the form #(className selectorOrMessage}. The external view's 
inset window and the subview’s viewport must be made to correspond. Two 
solutions are possible: (1) make the external view's inset window the same as the 
subview's viewport, or (2) make the subview's viewport the same as the external 
view's inset window. Solution (1) is used here. This leaves the subview unaffected." 
| class subview | 
className < anArray at: 1. newMessage < anArray at: 2. 
class <— Smalltalk at: className. 
subview +- WindowMaker asView: ((newMessage isKindOf: Message) 
ifTrue: [;ewMessage sendTo: class] 
ifFalse: [class perform: newMessage)). 
self addSubView: subview. 
self 
window: (subview getViewport expandBy: self borderWidth) 
viewport: self getViewport. 
name 
model 
displaying 
see common extensions 
copying 
printing 
... see Appendix B.1 ... 
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8.3.11 The ExtendedSwitchView Class 


The ExtendedSwitchView class provides a major extension to the SwitchView class. These 
include the following. Al but the first and last are also provided by extended text and menu 
views. 


1. A facility to handle fixed- and varying-size labels. 


2. The interface selectors (categories updating and adaptor) are augmented to permit 
extended messages instead of simple selector symbols. The extension is upward 
compatible. 


3. An infinite loop tolerance mechanism is added so that ‘self changed: #update- 
Symbol’ messages by the model will not result in an infinite loop when an update 
is in progress. 

4. An explicit instance variable (aspect) for keeping track of the update symbol is 
added. The system class insists that this be the same as the isOn (instance variable 
selector) message. There is no need for the two names to be correlated. 


5. Knowledge about highlight forms and the librarian, so that switches may be 
specified via library path names; i.e., library name and form name pairs. 


6. The ability to have on and off representations that are different (replacement 
style) versus those that are meant to be merged (overlay style). 


In more detail, extended switch views provide two modes for displaying the switch 
labels: constant-size mode and varying-size mode. The first is meant for labels that don't 
scale; the second for labels that do. The second also permits a switch label that doesn't scale 
to be displayed in a varying-size area. An example of an object that scales is a form; an 
example of one that doesn't is a string converted to a paragraph or a display text. Constant- 
size views have display boxes that are the same size as the window. There is no such 
correlation for varying-size views. Portions of extended switch views have been previously 
discussed in Sect. 3.4.4 under the title Unscaled Switch Views. 

To better explain the two varieties, suppose an extended switch view's label size is 10 
by 10. Also, suppose the view's window of size 50@ 50 would under normal circumstances 
transform to a display box of size 100@ 100. Let's call this display box — the expected 
display box. Three cases are possible: 


1. constant-size view: The actual display box ends up being 50 by 50. Where the 
display box is actually positioned will depend on a specified fixed point (discussed 
below). 

2. varying-size view and a label that doesn't scale: The actual display box is the 
expected display box of size 100@100 and the label (unscaled) is positioned in the 
center. 


3. varying-size view and a label that scales: The actual display box is the expected 
display box of size 100@ 100 and the label is scaled to fit exactly. 


Fixed points are used to specify which part of the view's window is to be transformed 
unaltered. When the fixed point is inside the window, self relative positioning is obtained. 
When it is outside, more global positioning permits rows or columns of views to be made 
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adjacent. For example, methods fixTopLeftCorner, fixCenter, and fixBottom- 
RightCorner cause the 50 by 50 window previously mentioned to be positioned at the top 
left, center, and bottom right respectively of the expected display box (inside positioning). 
Correspondingly, methods fixInHorizontalBankAtPosition: and fixIn VerticalBankAt- 
Position: cause the 50 by 50 window to be positioned in a row or column respectively (the 
row or column index is a parameter). 

Users can also provide a highlight object and specify whether or not it is to be 
overlaid over the label as opposed to replacing it when the switch is depressed (the default 
is to replace). If no highlight object is provided, highlighting is performed in the standard 
way (using reverse video), 

Additionally, the view permits an arbitrary change/update symbol called the aspect 
symbol to be specified. By contrast, switch views use the selector as the aspect symbol. It 
also provides infinite loop protection, as does the extended menu and text views. 

The controller class is listed first because it is so simple; the corresponding view class 
follows immediately. 


Class ExtendedSwitchController 


class ExtendedSwitchController 
superclass SwitchController 
instance variables “none” 


class methods 


no messages 


instance methods 
model querying 
sendMessage 


(selector isKindOf: Message) if True: [Tselector sendTo: modell. 
Tsuper sendMessage 


Class ExtendedSwitchView 


class ExtendedSwitchView 
superclass SwitchView 
instance variables name labelSource labelSourceForm highlightSource aspect 


fixedPoint fixedPointCode mode highlightOverlay 
updatelnProgress 


class methods 


instance creation 


on: anObject aspect: aSymbol label: aDisplayObject 
isOn: isOnMessage switch: switchMessage 
“Both the isOn and switch messages may be ExtendedMessage instances." 
Tself new 
model: anObject; aspect: aSymbol; label: aDisplayObject; 
solector: isOnMessage; arguments: #(); 
mode: #constant; fixCenter) controller 
selector: switchMessage; arguments: #()) view 
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on: anObject aspect: aSymbol label: aDisplayObject 
isOnSelector: isOnSelector isOnParameters: isOnParms 
switchSelector: switchSelector switchParameters: switchParms 
Tself new 

model: anObject; aspect: aSymbol; label: aDisplayObject; 

selector: isOnSelector; arguments: isOnParms; 

mode: #constant; fixCenter) controller 

selector: switchSelector; arguments: switchParms) view 


private printing support 


storeLabel: label on: aStream 
“Attempt to store the most compact representation possible." 
| path | 
label isNil ifTrue: [TaStream nextPutAll: 'nil']. 
(label isKindOf: Paragraph) 
ifTrue: {TaStream store: label asString; nextPutAll: ' asParagraph’']. 
(label isKindOf: Form) ifTrue: [ 
path e FormLibrarian pathNameForForm: label. 
path isNil ifFalse: [ 
TaStream 
nextPutAll: '(FormLibrarian formForPathName: '; 
store: path; nextPut: $)]]. 
label storeOn: aStream 


storeHighlight: highlight givenLabel: label on: aStream 

“Attempt to store the most compact representation possible." 

| path | 

(label isKindOf: FormWithHighlight) ifTrue: [ 

(path + FormLibrarian pathNameForForm: label) isNil ifFalse: [ 
(FormLibrarian formForPathName: path) highlight == highlight ifTrue: [ 
TaStream 

nextPutAll: '(FormLibrarian formForPathName: '; 
store: path; nextPutAll: ') highlight'})]. 

Tself storeLabel: highlight on: aStream 


examples 


example1 
“ExtendedSwitchView example1" 


“Mixes forms and paragraphs. Since they are no longer identical in size, some 
differences will be apparent. Also, note that the fixed points have no effect in 
varying mode." 


| topView labels switches switchCount switchHeight switchOffsets banks 
switchWidth | 


topView e StandardSystemView new 
label: ‘Unscaled/Unscaled Switches (Forms and Paragraphs)’; 
insideColor: Form white; borderWidth: 2. 

labels <— 
(#(normal read execute) collect: {:aSymbol | Cursor perform: aSymbol)), 
(#('aa' 'bb' 'cc') collect: [:aString | aString asParagraph)). 

switches < labels collect: [:aLabel | Switch newOff). 

switchCount e switches size. 

switchHeight e (1/switchCount) asFloat. 

switchOffsets < 0.0 to: 1.0-(switchHeight/10.0) by: switchHeight. 
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“Create 8 vertical banks of switches: the first four unscaled, the last four scaled. 
Use the same switches and labels to create eight columns differing only in position 
and scaling." 
switchWidth < (1/8) asFloat. 
banks < (1 to: 8) collect: [:bankindex | 
(1 to: switchCount) collect: [:aSwitchindex | 
ExtendedSwitchView new 

model: (switches at: aSwitchindex); 

label: (labels at: aSwitchindex); 

mode: (bankindex < 5 ifTrue: [#constant] ifFalse: [#varying])11. 


topView window: Display boundingBox. 
“helps eliminate transformation roundoff errors” 
banks with: (0.0 to: 1.0-switchWidth by: switchWidth) do: [:aBank :anXOffset | 
aBank with: switchOffsets do: [:aSwitchView :aYOffset | 
topView 
addSubView: aSwitchView 
in: (anXOffset@aY Offset extent: switchWidth@switchHeight) 
borderWidth: 1]. 


"Now specify the fixed point for the first four banks.” 

(banks at: 1) do: [:aSwitchView | aSwitch View fixTopLeft]. 

(banks at: 2) do: [:aSwitchView | aSwitchView fixCenter]. 

(banks at: 3) do: [:aSwitchView | aSwitchView fixBottomRight]. 

(banks st: 4) with: (1 to: switchCount) do: [:aSwitchView :aCount | 
aSwitchView fixColumn: aCount]. 


“Ditto for the next four banks.” 

(banks at: 5) do: [:aSwitch View | aSwitchView fixTopLeft). 

(banks at: 6) do: [:aSwitchView | aSwitchView fixCenter]. 

(banks at: 7) do: [:aSwitchView | aSwitchView fixBottomRight]. 

(banks at: 8) with: (1 to: switchCount) do: [:aSwitchView :aCount | 
aSwitchView fixColumn: aCount]. 


"Add some unnecessary transparent subviews just to provide the grid so we can 
better see what happened.” 
(0.0 to: 1.0-switchWidth by: switchWidth) do: [:anXOffset | 
switchOffsets do: [:aYOffset | 
topView 
addSubView: View new 
in: (anXOffset@aYOffset extent: switchWidth@switchHeight) 
borderWidth: 1]]. 


“Turn on the 2nd switch." 
(switches at: 2) turnOn. “Note: causes spurious switches to be displayed since the 
top controller is not yet opened.” 


topView controller open 
instance methods 


instance initialization 


defaultWindow 
“If the label exists, returns a rectangle large enough (but not much more) to contain 
the label and its border. Otherwise, returns a small rectangle." 
label == nil 
if True: [10@0 corner: 25@25] 
ifFalse: (T(label boundingBox expandBy: borderWidth) expandBy: 5] 
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initialize 
super initialize. 
“aspect, fixedPoint, updatelnProgress are nil" 
fixedPointCode <- #center. 
mode < #constant. 
highlightOverlay < false. 
“Until user initialized, ensure the selector test returns false.” 
self selector: #==; arguments: (Array with: Object new) 


name 
model 
displaying 

... see common extensions (see below for additions to displaying) ... 


copying 
printing 
.. see Appendix B.1 ... 


mode and highlighting 


mode 
Tmode 
mode: aSymbol 
“Checks for erroneous settings." 
(#(constant varying) indexOf: aSymbol) = 0 
ifTrue: {self error: ‘allowable modes are #constant or #varying’]. 
mode + aSymbol. self unlock 


overlayHighlight 
ThighlightOverlay 

overlayHighlight: aBoolean 
highlightOverlay <— aBoolean 


fixed point querying 


fixedPoint 
| aPoint xIndex yindex topWindowOrigin oldWindow | 
fixedPoint isNil ifTrue: [ 
fixedPointCode isNil 
ifTrue: [TfixedPoint — self getWindow center]. 
(fixedPointCode isKindOf: Symbol) 
if True: [TfixedPoint — self getWindow perform: fixedPointCodel]. 
{fixedPointCode isKindOfF: Point) 
ifTrue: (TfixedPoint + fixedPointCode] 
ifFalse: (“must be a row, column, or matrix" 
“Assumes all switches are the same size” 
“The vertical bank is numbered 1, 2, 3, ... from the top." 
“The horizontal bank is numbered 1, 2, 3, .... from the left" 
aPoint <— fixedPointCode at: 1. xIndex + aPoint x. ylndex < aPoint y. 
oldWindow < self getWindow. 
topWindowOrigin — oldWindow origin - 
(((xIndex-1) * oldWindow width)@({{ylndex-1) * 
oldWindow height)). 
TfixedPoint < topWindowOrigin]]. 
TfixedPoint 
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fixedPointEncoding 

fixedPoint isNil ifTrue: ["force the code to be computed” self fixedPoint]. 
fixedPointCode isNil ifTrue: [T#fixCenter]. 
(fixedPointCode isKindOf: Symbol) ifTrue: [ 

TH#UixBottomLeft fixBottomRight fixCenter fixMiddleLeftt 

fixMiddleRight fixTopLeft fixTopRight) 
at: (#(bottomLeft corner center leftCenter 
rightCenter origin topRight) indexOf: fixedPointCode)]. 

(fixedPointCode isKindOf: Point} 

ifTrue: [T'fixPoint: ', fixedPointCode printString] 

ifFalse: (T'fixMatrix: ', (fixedPointCode at: 1) printString] 


fixed point manipulation 


fixBottomLeft 

fixedPointCode + #bottomLeft. self unlock 
fixBottomRight 

fixedPointCode < #corner. self unlock 
fixMiddleLeft 

fixedPointCode <+- #leftCenter. self unlock 
fixMiddleRight 

fixedPointCode + #rightCenter. self unlock 
fixTopLeft 

fixedPointCode <— #origin. self unlock 
fixTopRight 

fixedPointCode < #topRight. self unlock 
fixCenter 


fixedPointCode + #center. self unlock 


fixRow: anlnteger 
"Assumes all switches in the row are the same size and numbered 1, 2, 3, .... from 
the left." 
fixedPointCode ¿+ Array with: anlnteger@0. self unlock 
fixColumn: aninteger 
"Assumes all switches in the column are the same size and numbered 1, 2, 3, ... 
from the top." 
fixedPointCode + Array with: O@anlnteger. self unlock 
fixMatrix: aPoint 
“Assumes all switches are the same size with x rows and y columns.” 
"The rows are numbered 1, 2, 3, ... from the top." 
“The columns are numbered 1, 2, 3, .... from the left" 
fixedPointCode <— Array with: aPoint. self unlock 


fixPoint: aPoint 
fixedPointCode <— aPoint. self unlock 


label/highlight modification 


label: displayObjectOrLibraryPathName 
(displayObjectOrLibraryPathName isKindOfFf: Array) 

ifTrue: [ 
labelSource <— displayObjectOrLibraryPathName. 
labelSourceForm & FormLibrarian formForPathName: |abelSource. 
super label: labelSourceForm] 

ifFalse: { 
labelSource < labelSourceForm < nil. 
super label: displayObjectOrLibraryPathName] 
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highlight: aDisplayObjectOrSymbolOrNil 
highlightSource — aDisplayObjectOrSymbolOrNil. 
highlightSource == #fromLabel 
ifTrue: [ 
(labelSourceForm respondsTo: #highlight) 
ifTrue: [super highlightForm: labe|SourceForm highlight] 
ifFalse: [super highlightForm: nil]] 
ifFalse: [super highlightForm: highlightSource] 


centerLabel 


"Deactivated because too many inherited methods attempt to center the label by 
destructively modifying it." 


controller access 


defaultControllerClass 
TExtendedSwitchController 


emphasizing 


deEmphasizeView 
“Deactivated. See ViewldeEmphasizeView.” 
Tself 

emphasizeView 
“Deactivated. See View!deEmphasizeView.” 
Tself 


adaptor 


interrogateModel 
(selector isKindOf: Message) if True: {Tselector sendTo: modell. 
Tsuper interrogateModel 


displaying 
display 
“Displays the view taking into account the status of the model, the label, and the 


highlight object. To present an instantaneous picture, the view is first internally 
displayed on a form." 


| aForm displayBox | 

“Take the inside color into account when obtaining the form.” 

aForm < insideColor isNil 
ifTrue: [Form fromDisplay: (displayBox + self displayBox)]} 
ifFalse: [Form extent: (displayBox + self displayBox) extent). 

self displayOn: aForm at: 0@0 clippingBox: aForm boundingBox 
rule: Form under mask: Form black. 

"Display the form." 

aForm displayOn: Display at: displayBox origin 


displayOn: aForm at: aPoint clippingBox: aRectangle rule: ruleinteger mask: maskForm 


“Displays the view taking into account the status of the model, the label, and the 
highlight object." 


| outside displayBox inside newTransformation | 

outside + aPoint extent: (displayBox < self displayBox) extent. 
inside <— outside insetBy: borderWidth. 

newTransformation < self transformationToDisplayin: inside. 
complemented < self interrogateModel. “update the view's status” 
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"The border.” 
(outside areasOutside: inside) do: [:area | 
aForm fill: (area intersect: aRectangle) rule: rulelnteger mask: borderColor]. 
outside < outside intersect: aRectangle. 
inside <- inside intersect: aRectangle. 


“The inside.” 
insideColor isNil 
ifFalse: [aForm fill: inside rule: rulelnteger mask: insideColor]. 


“The label.” 
label notNil & (complemented & highlightForm notNil & highlightOverlay) not 
ifTrue: [ 
“Avoid displaying label if highlight is to be overlaid (can't erase label with 
rule under).” 
label 
displayOn: aForm transformation: newTransformation 
clippingBox: inside rule: rulelnteger mask: maskForm]. 


“The highlight." 
complemented ifTrue: [ 
highlightForm isNil 
ifTrue: [aForm reverse: inside] 
ifFalse: [ 
highlightForm 
displayOn: aForm transformation: newTransformation 
clippingBox: inside 
rule: (highlightOverlay ifTrue: [Form under] ifFalse: [rulelnteger]) 
mask: maskForm]] 


indicatorReverse 
"Show that the switch has been pressed." 
l inside outside newTransformation | 


inside — self insetDisplayBox. 
highlightForm isNil 
ifTrue: (Display reverse: inside mask: Form gray] 
ifFalse: [ 
newTransformation < self transformationToDisplayln: inside. 
(self interrogateModel ifTrue: [label] ifFalse: [highlightForm]} 
displayOn: Display transformation: newTransformation 
clippingBox: inside rule: Form reverse mask: Form gray] 


transformationToDisplayln: aRectangle 
“The given display transformation is designed to transform the window (which may 
be located anywhere) to the display box. Returns the transformation needed to 
transform the label into the center of the same display box." 
l center | 
(mode == #varying and: [(label isKindOf: Path) | (label isKindOf: Form))) 
ifTrue: ("Object can resize - begs for canResize method." 
“Start displaying at inside origin rather than outside origin." 
TWindowingTransformation 
window: label boundingBox viewport: aRectangle] 
ifFalse: ("Object should not resize - center in inset display box." 
center & (label isNil 
if True: [aRectangle] 
ifFalse: (label boundingBox!) center. 
TWindowingTransformation 
scale: nil translation: aRectangle center - center). 
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computeDisplayTransformation 

“For varying-size switches, the default computeDisplayTransformation is used. For 
constant-size switches, additional computation is required. First, the default display 
transformation is computed and then used to determine where the fixed point 
should be displayed. Then a new display transformation with no scaling is 
constructed which translates the label origin in such a way that the fixed point is at 
the position determined above. Note that the resulting display box is consequently 
the same size as the window (not necessarily the same size as the label).“ 


| scaledTransformation sourceFixedPoint destinationFixedPoint | 
fixedPoint <— nil. 

scaledTransformation + self superComputeDisplayTransformation. 
mode == #constant iffFalse: [TscaledTransformation]. 


sourceFixedPoint + self fixedPoint. 
destinationFixedPoint e- scaledTransformation applyTo: sourceFixedPoint. 
TWindowingTransformation 

scale: nil translation: destinationFixedPoint - sourceFixedPoint 

superComputeDisplayTransformation 

"Since the borders in the containing view do not actually scale, this view (if left 
unchanged) will be positioned at a point that assumes the borders did scale. This 
can be eliminated by transforming into the inset display box rather than the display 
box. See View | computeDisplayTransformation for the difference." 


self isTopView 
ifTrue: (Ttransformation] 
ifFalse: [Tsu perView insetDisplayTransformation compose: transformation] 


insetDisplayTransformation 
“Ignores the borders." 
TWindowin gTransformation 
window: self insetWindow 
viewport: self insetDisplayBox 


updating 


aspect: aSymbol 
aspect + aSymbol 


update: aSymbol 
“Upward compatible with switch views; i.e. missing aspect results in using the 
selector instead.” 
| actualAspect | 
updatelnProgress isNil ifFalse: [Tself]. 
actualAspect +e aspect isNil! 
ifTrue: [ 
(selector isKindOf: Message) ifTrue: [selector selector] ifFalse: {selector]] 
ifFalse: [aspect]. 
actualAspect == aSymbol 
ifTrue: [updatelnProgress < true. self display. updateinProgress < nil] 


8.3.12 The ExtendedPictureView Class 
To support pictures with the power and flexibility that extended switch views provided, it is 


convenient to think of pictures as switches without controllers. Unlike display text views, 
that assume the picture will be forever unchanged, extended pictures provide for dynamic 
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pictures; i.e., pictures that can be changed any time the model decides. When the model 
wants a new picture displayed, it simply sends a ‘self changed: #updateSymbol’ message, 
where #updateS ymbol is the aspect for the extended picture view. 


Class ExtendedPictureView 


class ExtendedPictureView 
superclass ExtendedSwitchView 
instance variables labelMessage 


class methods 


instance creation 


on: anObject aspect: aSymbol label: aDisplayObjectOrNil 
getLabel: getl abelMessageOrNil 
"If the ‘get label’ message is nil, the supplied label is displayed (nil results in a 
picture with the view's inside color and border color). Otherwise, the ‘get label’ 
message is sent to the model to obtain the current label." 
Tiself new 
model: anObject; aspect: aSymbol; label: aDisplayObjectOrNil; 
selector: #isNi!; arguments: #(); 
mode: #constant; fixCenter) 
labelMessagea: getlLabelMessageOrNil 


instance methods 


controller access 


defaultControllerClass 
TNoController 


updating 


labelMessage 
labelMessage 
labelMessage: aSymbolOrNil 
labelMessage <— aSymbolOrNil 


update: aSymboi 
aspect == aSymbol ifTrue: [self display] 


displaying 


display 
labelMessage isNil ifFalse: [ 
self label: ((labelMessage isKindOf: Message) 
ifTrua: [labelMessage sendTo: model] 
ifFalse: [model perform: labelMessage))}. 
super display 


name 
model 
displaying 
copying f 
inherited from ExtendedSwitchView 


printing 
... see Appendix B.1 ... 
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8.3.13 The ExtendedSwitchAndPictureView Class 
Since switches, as in Fig. 8.12, are normally to the left of text that explains the switch (a 
picture), it is convenient to provide a class of views that combines the two — an extended 


switch and picture view. One advantage of the combination is the ability to specify the 
separation between the two exactly . 


©; tops (@) tops 


Figure 8.12 A switch (left), a picture (middle), and a switch/picture. 


Class ExtendedSwitchAndPictureView 


class ExtendedSwitchAndPictureView 
superclass ExtendedSwitchView 
instance variables labelSwitchPathName labelSeparation labelPictureString 


instance methods 
label/highlight modification 


label: anArray 


"Label is constructed from anArray of form #(switchPathName separation 
pictureString}.” 


| savedForm | 

jabelSource <— anArray. 

labelSwitchPathName < anArray at: 1. 

labelSeparation < anArray at: 2. 

jabelPictureString e anArray at: 3. 

JabelSourceForm < FormLibrarian formForPathName: !abelSwitchPathName. 
savedForm e labelSourceForm. 

super label: self getLabel. “label: destroys labelSource and labelSourceForm" 
labelSource <— anArray. 

labelSourceForm e savedForm 


highlight: aDisplayObjectOrSymbol 
“The highlight must be made the same size as the label to properly overlap (they 
are centered in their display boxes)." 
super highlight: aDisplayObjectOrSymbol. “sets the user supplied highlight" 
highlightForm < self getHighlight “recomputes it to properly overlap the label” 


printing 


storeLabelOn: aStream 
“Stores the label in the form #(switchPathName separation pictureString).” 
labelSource isNil 
ifTrue: [super storeLabelOn: aStream} 
ifFalse: (labelSource storeOn: aStream] 
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private 


getLabel 
“Constructs a form from the switch path name, separation, and picture string.” 


| switchForm pictureForm width height combinedForm | 
switchForm < labelSourceForm isNil 

ifTrue: [Form extent: 0@0) 

ifFalse: [labelSourceForm]. 
pictureForm < labelPictureString asParagraph asForm. 


width <— switchForm width + labelSeparation + pictureForm width. 
height + switchForm height max: pictureForm height. 
combinedForm e Form extent: width@height. 


switchForm displayOn: combinedForm 
at: O@((height - switchForm height) // 2). 
pictureForm displayOn: combinedForm 
at: (switchForm width + labelSeparation)@((height - pictureForm height) // 2). 


TcombinedForm 


getHighlight 
“Constructs a highlight that parallels the label in size." 


| combinedForm | 
highlightForm isNil if True: (Tnill. 
combinedForm + Form extent: label extent. 
highlightForm displayOn: combinedForm 
at: O@((combinedForm height - highlightForm height) // 2). 
TcombinedForm 


8.4 THE WINDOW MAKER 


The window maker (see Fig. 8.13) provides the designer with the capability to (1) create 
text, menu, switch, picture, and external windows, (2) specify their interfaces, and (3) 
provide a suitable layout (resizing, bordering, coloring, moving, and aligning). 

The top row consists of switches. The bottom pane, the icon container pane, is the 
repository for newly created subwindows — window maker icons. A new icon is created by 
depressing one of the switches at the top. It will pop up out of the switch and follow the 
mouse until deposited in the icon container pane. Failure to deposit the icon in the container 
pane results in the icon sliding back into the switch and vaporizing. Unlike the other 
switches, the zoom switches at the top right corner cause the window to magnify or shrink 
the container pane, providing the designer with the specified change in perspective. 


The window maker is invoked by executing ‘WindowMaker edit’. A standard system 
view is constructed with switch views for the switches at the top (see Fig. 8.14) and a spe- 
cial view, an instance of WindowMakerMasterlcon, for the container pane. When a switch is 
depressed, message ‘makelcon: #WindowMaker???Icon’ is sent to the associated window 
maker model, an instance of WindowMaker. This message is routed to the master icon, 
which creates an instance of the specified icon, provides the visual feedback mentioned previ- 
ously, and adds it (if the icon is deposited in the container pane) to the existing collection 
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Figure 8.13 A session with the window maker. 


of icons in the master icon (as a subview). The zooming switch views are similar but send 
their messages directly to the master icon. Unlike the nonzooming switches that use default 
controllers, the zooming switches make use of a special controller that provides for 
continuous zooming; i.e., the designer need not provide a separate push-down action to 
obtain the zooming — it is sufficient to keep the button depressed on the switch. The reader 
might note that the window maker model (aWindowMaker in Fig. 8.14) is not playing an 
essential role. It could be bypassed as it is by the zooming switches. We leave this 
simplification as an exercise to the reader. 


We first consider the continuous switch controller. Unlike switch controllers that 
send their message only when they lose control (see controlTerminate), the continuous 
switch controller keeps sending the message associated with the switch as long as it 
maintains control; i.e., as long as the mouse is depressed in the switch view. 


Class ContinuousSwitchController 


class ContinuousSwitchController 
superclass SwitchController 
instance variables "none" 
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instance methods 


controlling 

controlActivity 
“Continuously sends the message as long as the button is depressed.” 
self sendMessage 


controlTerminate 
"Restores the button without doing anything more." 
view indicatorReverse 
The window maker's major role is to provide an interface with a designer who wishes 
to construct an application specific window (class method edit) or who wishes to modify an 
existing window (class method edit:). In general, an application window can be generated as 
an extended standard system view (with all the requisite subviews) or as an encoding of this 
view. The window maker open method permits either of these representations to be opened 
in a transparent manner. If it is an encoding, for example, it is first converted to an extended 
standard system view. Other class methods are used primarily by the master icon, which 
provides the editing functions. A secondary role is to serve as a model for the editor (as 
described previously). Only two instance methods are provided for this purpose: icon View: 
and makelIcon:. 


aSwitchView (making icons) aSwitch View (zooming) 
makelIcon: #WindowMaker???Icon 
aWindowMaker aContinuousSwitchController 


icon View: 


makelIcon: WindowMaker???Icon 


aWindowMakerMasterIcon (a View) 


subviews: 


each is 
aWindowMaker???Icon 


Figure 8.14 WindowMaker model/view/controller details. 
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The most interesting and complicated method to study is the method privateEdi- 
torOn:, which creates the top view with the relationships described in Fig. 8.13. The reader 
will note that it does not make use of the extended views discussed in prior sections. This is 
due mainly to historical development — we could have used them or we could have used the 
window maker itself to create a bootstrapped version. This would be analogous to producing 
a compiler for a language that did not exist and having the compiler written in this new lan- 
guage. A consequence of not bootstrapping or not using extended views is that bordering 
inaccuracies, as discussed in The Revised Display Transformation Algorithm of Sect. 8.3.2, 
are occasionally evident. None of our figures demonstrates this because we were careful to 
avoid such pictures. The designer, however, will notice it. Sometimes, the border between 
two random switches will be 1 pixel wide rather than 2. Resizing the window maker to a 
different size will often eliminate it. In some cases, however, it will simply cause some 
other border to deviate. The same problem occurs with the border for the bottom view — the 
top border is 3 pixels high rather than two; the bottom border may sometimes be 1 pixel 
high rather than 2. 


Class WindowMaker 

class WindowMaker 
superclass Model 
instance variables iconView 


class methods 
class initialization 
initialize 
"WindowMaker initialize” 
{self confirm: ‘initialize WindowMaker? Reply no if filing in classes; yes otherwise’) 
ifFalse: [Tself]. 
FormLibrary initialize. 
FormLibrarian initialize. 
FormLibrarian decompress. 
WindowMakerMasterlconController decompress 


converting 


aslcon: encodingOrView 
“Convert the window maker encoding or extended view (an extended standard 
system view or an extended view) to an icon." 
{encodingOrView respondsTo: #encoding) 
ifTrue: [Tself decode: encodingOrView encoding] 
ifFalse: [Tself decode: encodingOrView] 


asView: encodingOrView 
“Convert the window maker encoding or extended view (any kind of extended view) 
to an extended view.” 
(encodingOrView isKindOf: View) 
if True: [TencodingOrView] 
ifFalse: [T(self decode: encodingOrView) asView] 
opening 
edit 
“Open a new window maker editor." 
(self privateEditorOn: WindowMakerMasterlcon new) controller open 


“WindowMaker edit" 
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edit: iconltemsOrAView 
“Open a new editor on the parameter." 
(self privateEditorOn: (self aslcon: iconltemsOrAView)) controller open 


open: iconltemsOrAView 
"Open the parameter." 
Tself open: iconltemsOrAView on: nil 


open: encodedWindowOrView on: aModel 
"Open the parameter (an encoded window or a view) on the model." 
(self asView: encodedWindowOrView) openOn: aModel 


encoding/decoding 


decode: encoding , 
"Convert the encoding to an icon" 
| aStream | 
aStream e ReadStream on: encoding. 
T(Smalitalk at: (‘WindowMaker', aStream next, ‘Icon') asSymbol) new 
decodeFrom: aStream 


encode: anicon 
“Convert the icon to an encoding" 
| aStream | 
aStream <— WriteStream on: (String new: 10000). 
self encode: anicon on: aStream. 
TaStream contents 


encode: anicon on: aStream 
"Convert the icon to an encoding” 
aStream nextPutAll: '#(’. 
anlcon encedeOn: aStream. 
aStream nextPut: $) 


private 


privateEditorOn: anicon 
"Create and return an editor on the given window maker but does not open or start 
it up.” 
| aWindowMaker topView iconView switchesView isOnSelector 
isOnSelectorArguments switchSelector subviews textView menuView switchView 
pictureView switchAndPictureView externalView zoomlnView zoomOutView 
subRectangles iconContainerView | 


aWindowMaker + WindowMaker new. 
topView <— StandardSystemView new 

label: ‘Window Maker’; minimumSize: 200@ 100. 
iconView e anlcon model: aWindowMaker. 
iconContainerView <— View new. 
switchesView e View new. 


topView 
label: ‘Window Maker'; borderWidth: 1; insideColor: Form white; 
addSubView: switchesView in: (0@0 corner: 1@0.1) borderWidth: 0; 
addSubView: iconContainerView in: (0@0.1 "0.09" corner: 1@1) borderWidth: 1. 


iconContainerView 
addSubView: iconView viewport: iconContainerView insetWindow. 
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isOnSelector e #isNil. isOnSelectorArguments <— #(). “anything returning false” 
switchSelector <— #makelcon:. 


subviews < OrderedCollection new 
add: ((textView <— SwitchView new 
label: 'text' asParagraph; model: aWindowMaker; 
selector: isOnSelector; arguments: isOnSelectorArguments) controller 
selector: switchSelector; arguments: #(WindowMakerTexticon); view); 
add: ((menuView < SwitchView new 
label: 'menu' asParagraph; model: aWindowMaker; 
selector: isOnSelector; arguments: isOnSelectorArguments) controller 


selector: switchSelector; arguments: #(WindowMakerMenulcon); view); 


add: ((switchView < SwitchView new 
label: 'switch' asParagraph; model: aWindowMaker; 
selector: isOnSelector; arguments: isOnSelectorArguments) controller 


selector: switchSelector; arguments: #(WindowMakerSwitchlcon); view); 


add: ({pictureView «+ SwitchView new 
label: 'picture' asParagraph; model: aWindowMaker; 
selector: isOnSelector; arguments: isOnSelectorArguments) controller 


selector: switchSelector; arguments: #(WindowMakerPicturelcon); view); 


add: ((switchAndPictureView <— SwitchView new 
label: 'both' asParagraph; model: aWindowMaker; 
selector: isOnSelector; arguments: isOnSelectorArguments) controller 
selector:switchSelector; 
arguments:#(WindowMakerSwitchAndPicturelcon); view); 
add: ((externalView <— SwitchView new 
label: ‘external’ asParagraph; model: aWindowMaker; 
selector: isOnSelector; arguments: isOnSelectorArguments) controller 


selector: switchSelector; arguments: #(WindowMakerExternallcon); view); 


add: ((zoomlnView <— SwitchView new 
label: ‘zoom in' asParagraph; model: iconView; 
controller: ContinuousSwitchController new; 
solector: isOnSelector; arguments: isOnSelectorArguments) controller 
selector: #zoomln; arguments: #(); view); 
add: ((zoomOutView e SwitchView new 
label: ‘zoom out’ asParagraph; model: iconView; 
controller: ContinuousSwitchController new; 
selector: isOnSelector; arguments: isOnSelectorArguments) controller 
selector: #zoomOut; arguments: #(); view); 
yourself. 


subRectangles < OrderedCollection new 
addAll: ((1 to: 2) collect: [:i | ((i-11/6)@0 corner: (//6)@1}); "text, menu” 
addAll: ((3 to: 4) collect: L:i | ((i-1/6)@0 corner: {i/6)@(1/2))); “switch, picture" 
add: ([:i sj | (i-16)@(1/2) corner: (j//6)@ 1] value: 3 value: 4); “switchAndPicture" 
addAll: ((5 to: 5) collect: [:i | ((i-1)/6)@0 corner: (i/6)@1]); “external” 
addAll: ((6 to: 6) collect: [:i | ((i-1)/6)@0 corner: (i/6)@(1/2)}); "zoom in" 
addAll: ((6 to: 6) collect: [i | ({i-1)/6)@(1/2) corner: (i/6}@1]); “zoom out" 
yourself. 


1 to: subviews size do: [:i | 
switchesView 
addSubView: (subviews at: i) in: (subRectangles at: i) borderWidth: 1]. 


aWindowMaker iconView: iconView. 


TtopView 
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instance methods 
instance initialization 


iconView: aView 
iconView <— aView 
menu messages 


makelcon: anlconClassName 
iconView makelcon: (Smalltalk at: aniconClassName) 


8.4.1 The Icon Classes 


The window maker master icon is the heart of the window maker editor. It is the container 
for all newly created icons. One icon class exists for each window category, in addition toa 
special group icon that permits sets of icons to be manipulated as individual icons. Like the 
master icon, it is a container for the same class of icons; this includes other group icons. 
Fig. 8.15 summarizes the master icon part hierarchy. 


WindowMaker MasterIcon 


W 


indowMakerGroupIcon 


WindowMakerSwitchIcon 
WindowMakerPicturelcon 


Figure 8.15 WindowMaker icon parts hierarchy. 


WindowMakerSwitchAndPicturelIcon 


Each icon is in fact a view (see Fig. 8.16). Since the switch and picture icons can be 
either fixed- or varying-size, it is most convenient to implement all icons by inheriting the 
functionality from extended switch views (even if it isn't needed for some of them). Because 
there is a great deal of common functionality, it is also useful to make use of an abstract 
class — WindowMakerlcon. 

In general, the master icon is the controlling view. Hence, it needs a special controller 
(see Fig. 8.17) — an instance of WindowMakerMasterIconController. The associated yellow 
button pop-up menu contains a number of menu items that result in special options win- 
dows popping up. These are scheduled extended standard system views — hence, they may be 
left temporarily unattended, for example, to browse the application class or create an interface 
method. These options windows are removed with the standard close mechanism. However, 
some of them have a cancel facility. To provide this cancel facility, an alternative to the 
standard system controller is provided via class WindowMakerContollerWithCancel. 
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ExtendedSwitch View 


WindowMakerlIcon 


WindowMakerMasterIcon Ys. 


WindowMakerTextlIcon WindowMakerExternallcon 
WindowMakerMenulcon WindowMakerGrouplIcon 


WindowMakerSwitchOrPicturelcon 
WindowMakerSwitchIcon WindowMakerPicturelcon 


WindowMakerSwitchAndPicturelcon 
Figure 8.16 WindowMaker icon (view) hierarchy. 


One way of investigating the design is to consider the hierarchy along with the 
instance variables provided by the individual classes. A summary is provided next. 
Unfortunately, this approach is relatively unproductive. 


ExtendedSwitchView 
WindowMakerlcon 

message messageView messagelnitializers messageSources 
messageCodings messageParsers sizeLocked defaultLabelSelector 

WindowMakerMasterlcon 
selections minimumSize maximumSize outputOption 

WindowMakerGrouplcon 
librarianForBackground width height leftRightAlignment 
upDownAlignment horizontalAbutment verticalAbutment 

WindowMakerTexticon 
“none” 

WindowMakerMenulcon 
“none” 

WindowMakerSwitchOrPicturelcon 
pictureVariety pictureString pictureFormPathName 
lockedSizeExpansion 

WindowMakerSwitchlcon 
“none” 
WindowMakerSwitchAndPicturelcon 
separation 
WindowMakerPicturelcon 

“none” 

WindowMakerExternallcon 
“none” 
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MouseMenuController StandardSystemController 


WindowMakerMasterIconController WindowMakerControllerWithCancel 


Figure 8.17 WindowMaker icon controller hierarchy. 


A more standard approach to presenting the design is to consider the classes one by 
one, starting from the top of the hierarchy and proceeding downward — a vertical presen- 
tation. Another way is to focus on general aspects or properties of the design that are 
supported by each of the classes — a horizontal presentation. For example, every class 
has an operation to convert an icon into an extended view. By gathering and discussing this 
conversion operation in one section, we decrease the detail that has to be considered later in a 
vertical presentation. On the other hand, there are some aspects that fit neither presentation 
mode either because they represent a major feature of a class among a number of minor 
aspects or because they represent a feature that is distributed in a more ad hoc manner among 
anumber of relatively independent classes. 

In practice, it is difficult to partition the design into horizontal and vertical 
presentation modes because of the interrelationships between the parts. No matter what order 
is chosen to describe the design, there will always be some aspects that cannot be adequately 
presented without forward references. Our approach will be to provide some of the basic 
features of the design horizontally and to follow this up with a vertical presentation that is 
interspersed with a discussion of aspects that are relatively distributed. More specifically, the 
design is presented by describing the major functional components. These include 


group sequencing 

displaying, moving, sizing 

labeling the icons 

the master icon controller 

the master icon view 

options windows 

encoding/decoding, conversion to extended views, and copying 
the remaining icons (everything that wasn't discussed above) 


SN ANP WN 


In general, the greatest amount of code and also the least interesting is devoted to 
processing options. The most interesting has to do with the interaction interface provided by 
the master icon controller and its view. 


8.4.2 Group Sequencing 


One feature of the window maker is its ability to group icons into individual units. This can 
simplify positioning or size adjustments, since the modification will apply to all icons in 
the unit. Sometimes the grouping is explicitly requested by the designer — in this situation, 
the icons in the grouping remain together until explicitly ungrouped; e.g., see the leftmost 
three icons in Fig. 8.18. At other times, the grouping is implicit; e.g., when several icons 
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are selected and moved as a whole — consider the three bold icons being moved downward 
and to the right in Fig. 8.18. In this situation, selecting some new icon implicitly ungroups 
the collection of icons. In general, groups may themselves contain other groups to arbitrary 
levels. 


Window Maker 


| switch | picture | 
| text | menu pieh 1 _ploture zoom out | 
pom 6 


Si i te h 


Figure 8.18 A session with the window maker. 


In this section, we are not concerned with the mechanism for grouping or ungrouping 
or how control is managed to provide the above visual effects. Rather, we are concerned with 
a much simpler protocol — one that enables icons to be manipulated independent of whether 
or not they are grouped. We call this the group sequencing facility. It provides us with the 
ability to process an icon independent of whether or not it is a group and to sequence through 
nongroup icons in a group independent of how deeply nested the icons are in a group. 

For example, if our aim was to change the border width of all nongroup icons 
associated with candidate, our solution would look something like 


candidate groupDo: [:icon | icon borderWidth: 1] 


In this case, groups are effectively transparent to the borderWidth: message. Another goal 
might be to retrieve the border width of all nongroup icons. Typically, this would be 
successful only if the border width were the same for all nongroup icons. Our group 
sequencing facility would permit the following: 


candidate groupGet: [:icon | icon borderWidth] ifUnequal: [nil] 
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This facility is really a horizontal facility, since all icons respond to the group 
sequencing operations. However, it is sufficient to implement the operations in two places: 
in abstract class WindowMakerlcon and in the group management class WindowMaker- 
GrouplIcon. To understand the latter implementation, it is sufficient to know that the group 
icon maintains the icons in its group as subviews. 


Class WindowMakericon 
class WindowMakerlcon 
superclass ExtendedSwitchView 


instance variables 
group sequencing 


groupDo: aBlock 
aBlock value: self 


groupGet: aBlock ifUnequal: anotherBlock 
P Block value: self 


Class WindowMakerGrouplcon 


class WindowMakerGrouplcon 
superclass WindowMakerlcon 
instance variables 


group sequencing 


groupDo: aBlock 
subViews do: [:icon | icon groupDo: aBlock] 


groupGet: aBlock ifUnequal: unequalBlock 
| firstTime result | 
firstTime <— true. result — nil. 
self groupDo: [:icon | 
firstTime 
ifTrue: [result — aBlock value: icon. firstTime — false] 


ifFalse: [result = (aBlock value: icon) ifFalse: (TunequalBlock value)]). 
Tresult 


If a group element is itself a group, method groupDo: in WindowMakerGrouplIcon is 
applied recursively, but it must terminate since circular structures are never created for 
subviews (or groups). When it does terminate, it will terminate on a nongroup at which 
point method groupDo: in WindowMakerlcon will execute the block with the nongroup 
icon parameter. Hence, the block is executed only for nongroup icons. 


The facility is used in the WindowMakerMasterIcon, for example, to provide access to 
nongroup selections. This is illustrated in the following: 
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Class WindowMakerMastericon 


class WindowMakerMasterlcon 
superclass WindowMakerlcon 
instance variables selections ... 
selections 
selections 

Tselections 
ungroupedSelections 


| ungroupedSelections | 
ungroupedSelections e OrderedCollection new. 
selections do: 
Eselection | selection groupDo: [:icon | ungroupedSelections add: icon]]. 
TungroupedSelections 


Note that selections is just an ordered collection — hence, it is incorrect to attempt to 
execute “selections groupDo: ...” in method ungroupedSelections. 


8.4.3 Displaying, Moving, and Sizing 


Several icons are displayed in Fig. 8.19 — each has an 8@8 grow box at the bottom right 
comer of the icon. To resize the icon, it is a simple matter of moving the grow box. To 
move the icon, it is a matter of moving any other part of the icon. When an icon is selected, 
it is highlighted; when deselected, it is dehighlighted. Both highlighting and dehighlight- 
ing are accomplished by reversing the inside of the icon — everything excluding the border. 


Window Waker 
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Figure 8.19 Highlighted group, menu, switch, and switch/picture icons. 
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The basic display facility is inherited from class ExtendedSwitchView and is extended 
with a grow box. For switches, pictures, and switch/pictures (the combination), designers 
have the ability to specify whether or not the icons are to be fixed-size or varying-size. 
Generally, when it is to be fixed-size, this size is a function of the icon's background — 
either a textual name or a form; i.e., just big enough to contain the name or the form, 
possibly with some additional white space around it. Nevertheless, it is still possible to 
resize the icon by dragging on the grow box. To prevent this, we also permit fixed-size icons 
to be locked. 


Class WindowMakericon 

class WindowMakerlcon 
superclass ExtendedSwitchView 
instance variables ... sizeLocked ... 


instance methods 
instance initialization 


initializeMessages 
.. see Sect. 8.4.7, Initializing a New Icon’s Interface Data ... 


initialize 
"Initializes all components of the icon.” 
1 box | 
super initialize. 
self mode: #varying. 
box — 0@0 extent: 50@50. 
self window: box viewport: box. “=> transformation is identity" 
sizeLocked < false. 
self borderWidth: 1; insideColor: Form white. 
defaultLabelSelector <— #subclassResponsibility. 
self initializeMessages 


size locking 


sizeLocked 
TsizeLocked 


sizeLocked: aBoolean 
sizeLocked < aBoolean 


displaying 


displayOn: aForm at: aPoint clippingBox: aRectangle rule: rulelnteger mask: maskForm 
“Display the icon and its grow box." 
“The border, inside color, and background.” 
super displayOn: aForm at: aPoint clippingBox: aRectangle 
rule: rulelnteger mask: maskForm. 
"The grow box." 
Tself displayGrowBoxOn: aForm at: aPoint clippingBox: aRectangle 


displayGrowBoxOn: aForm at: aPoint clippingBex: aRectangle 
| growBox | 
growBox & (aPoint + self displayBox extent - (8@8)) extent: 8@8. 
(aRectangle contains: growBox) ifTrue: [ 
aForm black: growBox. 
aForm white: (growBox insetBy: 2)]. 
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highlight 
self reverse 


highlightOn: aForm at: aPoint clippingBox: aRectangle 
self reverseOn: aForm at: aPoint clippingBox: aRectangle 


dehighlight 
self reverse 


dehighlightOn: aForm at: aPoint clippingBox: aRectangle 
self reverseOn: aForm at: aPoint clippingBox: aRectangle 


reverse 
self reverseOn: Display at: self displayBox origin 
clippingBox: superView insetDisplayBox 


reverseOn: aForm at: aPoint clippingBox: aRectangle 
aForm reverse: (((aPoint extent: self displayBox extent) insetBy: borderWidth) 
intersect: aRectangie) 


reverseBoundary 
Display 
border: (self displayBox intersect: superView insetDisplayBox) 
width: 2 rule: Form reverse mask: Form black. 


computelnsetDisplayBox 
“Overrides the default method to avoid intersecting the result with the superview's 
display box." 
Nself displayTransform: self getWindow) insetBy: borderWidth 


growBoxContainsPoint: aPoint 
Tiself displayBox corner - (8@8) extent: 8@8) containsPoint: aPoint 


Note that highlight and dehighlight are synonymous with reverse. However, they are 
semantically more meaningful. We always use the paired terms rather than the 
implementation level reverse when it makes sense. Method reverseBoundary is used to 
produce an outline of an icon as it is moved by a designer; e.g., as shown in Fig. 8.18. 


Early in the design stage, we decided that growing or shrinking an icon would not be 
done by adjusting the icon's local transformation. In fact, we decided to maintain the 
constraint that the local transformation would always be the identity transformation. On the 
other hand, when the window maker itself is repositioned or resized, we don't want the icons 
to move relative to the window they are displayed in. Since the icons are contained and 
managed by an instance of WindowMakerMastcrIcon, this can be achieved by permitting the 
master icon to introduce an offset into its local transformation. The resulting display 
transformation for an icon then has a translation associated with it but no scaling. There are 
several consequences of this design decision: 


1. The local transformation need not be saved with an icon's encoding because it is 
the identity transformation. 


2. The size of an icons's window, viewport, and display box are the same; i.e., 
they have identical extents. 
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3. The origin of an icon's window may be different from the origin of its display 
box. 


Icon movement is specified via methods moveTo: and moveBy:, resizing via 
methods growTo: and growBy:, and rescaling via scaleBy:. To simplify the 
implementation, moveTo: and growBy: are implemented in terms of the others. Two 
benefits result: (1) it was easier to get it right, and (2) subclasses such as WindowMaker- 
GroupIcon only had to reimplement the three primitives (moveBy:, growTo:, and 
scaleBy:) to get them all. Recall that unlock causes a view's display transformation and 
inset display box to be discarded; lock causes them to be recomputed. 


moving/growing primitives 


moveBy: aPoint 
“Parameter aPoint is in display coordinates.” 
aPoint = (0@0) ifFalse: [window moveBy: aPoint. self unlock; lock] 


growTo: aPoint 
“Parameter aPoint is in display coordinates.” 
sizeLocked if True: [Tself]. 
window extent = aPoint ifFalse: [window extent: aPoint. self unlock; lock] 


scaleBy: scale 


“Scales in the normal way but ensures that the window is the same size as the 
display box." 


| oldExtent | 
oldExtent <- window extent. 


super scaleBy: scale. “this will change the local transformation“ 

self lock. 
window +- superView inverseDisplayTransform: self displayBox. 
transformation e- WindowingTransformation identity. 


sizeLocked ifTrue: [window extent: oldExtent]. 
self unlock; lock 


Moving/growing nonprimitives 


moveTo: aPoint 
“Parameter aPoint is in display coordinates.” 
self moveBy: (aPoint - self displayBox origin) 


growBy: aPoint 
“Parameter aPoint is in display coordinates.” 
self growTo: (aPoint + self displayBox extent) 
inverseDisplayScale: aPoint 
“Applies the inverse of the scale of the receiver's display transformation. Used to 
convert a width in display coordinates to window coordinates.” 


TaPoint scaleBy: (1.0@1.0) / self displayTransformation scale 


A group icon can be displayed, moved, and resized like any other icon by redefining 
two display methods and the three primitives discussed previously. 


Chapter 8 A Window Application 401 


Class WindowMakerGrouplicon 


class WindowMakerGroupicon 
superclass WindowMakerlcon 
instance variables 


instance methods 
displaying 


displayBox 
| box | 
box & nil. 
self groupDo: [:icon | 
; box + box isNil ifTrue: [icon displayBox] ifFalse: [box merge: icon displayBox!]. 
box 


displayOn: aForm at: aPoint clippingBox: aRectangle rule: rulelnteger mask: maskForm 
| offset | 
offset e self displayBox origin. 
subViews do: [:icon | 
icon displayOn: aForm at: icon displayBox origin - offset + aPoint 
clippingBox: aRectangle rule: rulelnteger mask: maskForm]. 
super displayOn: aForm at: aPoint clippingBox: aRectangle 
rule: rulelnteger mask: maskForm 


moving/growing primitives 


growTo: aPoint 
“Parameter aPoint is in display coordinates." 
| oldBox scale newBox delta | 
oldBox < self displayBox. scale + aPoint / oldBox extent. 
subViews do: {:icon | icon scaleBy: scale]. 
newBox < self displayBox. 
delta e oldBox origin - newBox origin. “bring back to old origin" 
delta = (0@0) ifFalse: [subViews do: [:icon | icon moveBy: delta}] 


moveBy: aPoint 
“Parameter aPoint is in display coordinates." 
self groupDo: [:icon ! icon moveBy: aPoint] 


scaleBy: scale 
subViews do: [:icon | icon scaleBy: scale] 


Note that no caching is provided by method displayBox. It could be speeded up by 
performing the above computation only when the inset display box is nil and caching the 
inset display box. However, we haven't noticed any slowdown due to the above, even on 
slow machines. 


8.4.4 Labeling the Icons 


When a designer creates an application specific window, the subwindows (icons) in that 
application window are provided with names associated with the class of icon they represent. 
In Fig. 8.20, for example, icons are shown with labels text, menu, switch, picture, and 
external. These labels are provided only for aesthetic reasons — they do not exist in the final 
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application window. Nevertheless, there should be some correspondence between the icon 
labels seen in the editor and the subwindows in the application window. How else could we 
distinguish two text subwindows or two picture windows representing different pictures? 


Window Maker i 


| text | menu pieh eiectus zoom in| 


pictug 
a 


O 


Figure 8.20 A session with the window maker. 


An approach we used in the early implementation stages was to manufacture numeric 
suffixes — the result was labels like text/, text2, and so on when more than one text sub- 
window was created. Ultimately, this proved inadequate, as it became increasingly difficult, 
as designers, to remember which text subwindow was which. Our latest solution is to use 
some aspect of the subwindow interface that has to be provided by the designer. In the case 
of a text subwindow, it is the getText message. For a menu subwindow, it is the 
getMenuArray message. For subwindows like switches and pictures, we use the actual 
display form. 

In general, we provide each icon with a computeLabel method whose task it is to set 
the icon's label. The default method makes use of the string associated with a default 
interface message. More sophisticated icons actually redefine the computeLabel method. 
The more interesting question is “when must the label be recomputed?” The answer is 
generally “whenever something is done that might result in a change to the label.” A 
summary of such locations includes the following: 


1. When a new icon is constructed (method new in class WindowMakerlcon). 
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2. When changes are made to the external interface (methods messageSource: and 
changeMessage:coding: in class WindowMakerGrouplcon). 


3. When a switch icon and a picture icon are combined into a separate switch/picture 
icon (method combineSwitchAndPicture in class WindowMakerMasterControl- 
ler). 


4. When a switch or a picture is created from an existing encoded icon (method 
decodeFrom: in class WindowMakerSwitchOrPicturelcon). 


5. When the background for a switch or picture icon is changed (methods change- 
PictureString:, changePicture Variety: ,changeLocking:,and changeLocked- 
SizeExpansion: in class WindowMakerGrouplcon). 


6. When the designer specifies the form to be associated with a switch or picture icon 
by making a selection from the form librarian (method update: in class Window- 
MakerGroupIcon). 

A sampling of these methods is shown below: 


Class WindowMakericon 


class WindowMakerlcon 
superclass ExtendedSwitchView 
instance variables .. defaultLabelSelector 


class methods 
instance creation 


new 
Tsuper new computeLabel 


instance methods 
instance initialization 


initialize 
. not all of the method shown ... 
defaultLabelSelector <— #subclassResponsibility. 


displaying 


computeLabel 
"If the user has changed the more important message selector for the icon (which it 
is depends on the icon), then use the new selector as the label; otherwise, do 
nothing.“ 
| theSelector | 
theSelector — self selectorFor: defaultLabelSelector. 
self label: (theSelector == defaultLabelSelector 
ifTrue: [self classNamePicture] 
ifFalse: [theSelector asParagraph]) 
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Class WindowMakerTexticon 


class WindowMakerTexticon 
superclass WindowMakerlcon 
instance variables 


instance methods 


instance initialization 

initialize 
super initialize. 
defaultLabelSelector <— #getText 


Class WindowMakerMenulcon 
class WindowMakerMenulcon 


superclass WindowMakerlcon 
instance variables 


instance methods 


instance initialization 
initialize 
super initialize. 
defaultLabelSelector <— #getMenuArray 


Class WindowMakerExternallicon 
class WindowMakerExternallcon 


superclass WindowMakerlcon 
instance variables 


instance methods 


instance initialization 

initialize 
super initialize. 
defaultLabelSelector + #getView 


Class WindowMakerMastericon 


class WindowMakerMasterlcon 
superclass WindowMakerlcon 
instance variables 


instance methods 


background 


computeLabel 
“There is no label for the master icon.” 
self label: nil 
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Class WindowMakerGrouplicon 


class WindowMakerGrouplcon 
superclass WindowMakerlcon 
instance variables 

instance methods 


background window messages 


changePictureString: aText 
| aString | 
aString + aText asString. 
self groupDo: [:icon | icon pictureString: aString; computeLabel]. 
true 


changePictureVariety: aSymbol 
self groupDo: [:icon | icon pictureVariety: aSymbo!; computeLabel]. 
self changed: #pictureVariety 
Ttrue 


changeLocking: aBoolean 
aBoolean 

ifTrue: [ 

self groupDo: [:icon | 
icon sizeLocked: true; mode: #constant; computeLabel). 

self changed: #mode; changed: #locking] 

ifFalse: [ 
self groupDo: {[:icon | icon sizeLocked: false]. 
self changed: #locking]} 


changeLockedSizeExpansion: aT ext 
| integer | 
integer — Number readFrom: aText asString. 
vel groupDo: [:icon ! icon lockedSizeExpansion: integer; computeLabel). 
true 


background window support 


computeLabel 
“There is no label for a group icon.” 
self label: nil 


update: aSymbol 
“Provide the connection from switches and pictures to the librarian view. See 
method preOpenBackground: in WindowMakerGrouplcon."” 
| path | 
aSymbol == #pictures 
ifTrue: [ 
(path < librarianForBackground selectedPathName) isNil ifFalse: [ 
subViews do: [:icon | 


icon pictureFormPathName: path; computeLabel]]] 
ifFalse: [super update: aSymbol] 


For switches or pictures, the label could be either a paragraph or a form, depending on 


the options specified. Switch/pictures are a combination of the two. A special method 
getLabel is provided to compute the resulting label. 
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Class WindowMakerSwitchOrPicturelcon 


class WindowMakerSwitchOrPicturelcon 

superclass WindowMakerlcon 

instance variables pictureVariety pictureString pictureFormPathName 
lockedSizeExpansion 

instance methods 

background 

computeLabel 


“Construct a new label from the current settings; i.e., from the switch path name or 
picture string. The icon display box may change if the label changes size." 

| newLabel | 

newLabel < self getLabel. 


sizeLocked ifTrue: [ 
sizeLocked < false. 
“Avoid the following method since it computes the display box (works only if 
this icon has a superview; e.g., after initialization).” 
“self growTo: (newLabel extent max: 10@10).* 


window extent: (newLabel extent + (lockedSizeExpansion*2) max: 10@10). 
self unlock; lock. 
sizeLocked < true]. 


self label: newLabel 


getLabel 


“Construct a new label from the current settings; one that permits the extent to be 
computed." 


T pictureVariety == #text 
ifTrue: [pictureString asParagraph] 
ifFalse: [FormLibrarian formForPathName: pictureFormPathName] 


Class WindowMakerSwitchAndPicturelcon 


class WindowMakerSwitchAndPicturelcon 
superclass WindowMakerSwitchlicon 
instance variables separation 


instance methods 
background 


getLabel 
“Constructs a form from the switch path name, separation, and the picture string." 


| switchForm pictureForm width height combinedForm | 

switchForm < FormLibrarian formForPathName: pictureFormPathName. 
switchForm isNil ifTrue: [switchForm e Form extent: 0@0]. 

pictureForm < pictureString asParagraph asForm. 


width <— switchForm width + separation + pictureForm width. 
height — switchForm height max: pictureForm height. 
combinedForm + Form extent: width@height. 


switchForm displayOn: combinedForm 
at: 0@((height - switchForm height) // 2). 
pictureForm displayOn: combinedForm 


at: (switchForm width + separation)@((height - pictureForm height) // 2). 
TcombinedForm 
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Generally, the label form, paragraph, or display text used by method computeLabel is 
manufactured by getLabel in class WindowMakerS witchOrPicturelcon. This method works 
for switches or pictures but must be redefined in subclass WindowMakerS witchAndPicture- 
Icon for switch/picture combinations. 

When a switch or picture icon is converted to the corresponding extended view, the 
label's form, paragraph, or display text could be passed directly to the view as a parameter to 
message label:. When and if a store string is required of the extended view, a corresponding 
store string for the label must also be constructed. If the label is a paragraph, it is easy to 
retrieve the corresponding string and generate a store string such as ‘aString asParagraph’. 
However, there is no simple equivalent for forms — the entire form must be re-created. On 
the other hand, extended switches and pictures do have the capability to accept labels that are 
library path names such as #(libraryName formName). In that situation, the label's store 
string can be generated quite compactly as the path name. Because this information is 
available to the switch and picture icons, we provide another method, generateLabel, that 
can be used by the conversion operation. 


Class WindowMakerSwitchOrPicturelcon 


class WindowMakerSwitchOrPicturelcon 
superclass WindowMakerlcon 
instance variables pictureVariety pictureString pictureFormPathName ... 


instance methods 
background 


generateLabel 
“Construct a new label from the current settings; one that can be used to specify a 
label for a new view.” 
TpictureVariety == #text 
ifTrue: [pictureString asParagraph] 
ifFalso: [pictureFormPathName] 


Class WindowMakerSwitchAndPicturelcon 


class WindowMakerSwitchAndPicturelcon 
superclass WindowMakerSwitchlcon 
instance variables separation 


instance methods 
background 


generateLabel 
"Label must be of the form #(pictureFormPathName separation pictureString)." 
TArray with: pictureFormPathName with: separation with: pictureString 


Finally, switches and switch/pictures can have both on- and off-forms. This is called 
the highlight object in an extended view. Just as a label can be specified by a path name, so 
can its highlight indirectly reference this path name by providing #fromLabel as the 
highlight object instead of a paragraph, form, or display text. 
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Class WindowMakerSwitchicon 


class WindowMakerSwitchlcon 
superclass WindowMakerSwitchOrPicturelcon 
instance variables “none” 


instance methods 


background 


generateHighlight 


| offForm | 
pictureVariety == #form 
ifTrue: [ 
offForm e FormLibrarian formForPathName: pictureFormPathName. 
(offForm respondsTo: #highlight} 
ifTrue: (T#fromLabel] 
ifFalse: [Tnit]] 
ifFalse: [Til] 


8.4.5 The MastericonController Class 


Class MasterIconController is a subclass of MouseMenuController with extensions to 
provide facilities such as the following: 


1. 


A copy buffer to permit icons (rather than characters) to be copied, cut, pasted, and 
deleted. 


Both menu and keyboard processing for the above, in addition to a facility to 
permit grouping and ungrouping of icons. 


A facility to keep track of the current pop-up options window (at most one is 
permitted at any time). 


A rather complex yellow button menu that is constructed dynamically to take into 
account the currently selected icons; e.g., some entries are permitted only for a 
subset of the selected icons. 

Mouse controlled icon selection, deselection, moving, and size adjusting. 


A repository for the pop-up options windows — the window maker is boot- 


strapped. 


In general, the methods needed for options processing are distributed, since each 
different kind of icon has its own special options. The methods that construct the views for 
the options windows could likewise be distributed, but it is more convenient to gather them 
together in one place. They are kept as class methods in the master icon controller. We will 
consider this repository first, but we will not go into the details of the pluggable methods 
used by the options windows until we discuss class WindowMakerGrouplIcon. Class 
WindowMakerGrouplIcon is the repository for the pluggable methods as distinct from this 
class, which is the repository for the options window view construction methods. Next we 
will consider the primary control aspects (facilities 1 through 5 above). As we discuss 
yellow button menu processing, we will also consider a special support class, 
Window MakerControllerWithCancel, that provides the special controllers used by options 


windows. 
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The Repository for Option Windows 


Because the options windows were bootstrapped using the window maker, they can be either 
encoded or unencoded. The unencoded form is required for fast interactive performance, but 
the encoded form is dramatically more compact. Reversible conversion from one form to the 
other is possible via methods compress and decompress. 


Class WindowMakerMastericonController 


class WindowMakerMasterlconController 
superclass MouseMenuController 

instance variables previousPopUpWindow 

class variables lconCopyBuffer 


class methods 
class initialization 


compress 
“WindowMakerMasterlconController compress" 
| time | 
Transcript er; show: 'Compressing'. 
time — WindowMakerMasterlconController timeFor: [ 
#(alignment background borderingAndColoring makeMethod 
switchAndPictureBackground) do: [:part | 
Transcript show: ‘‘, part,’....'. 
ExtendedStandardSystemView 
compileEncoding: (WindowMakerMasterlconController windowFor: part) 
intoClass: WindowMakerMasterlconController class 
method: part, 'Window' category: ‘generic windows’). 
#(external master masterSizing menu picture switch text) do: [:part | 
Transcript show: '', part, '....'. 
ExtendedStandardSystemView 
compileEncoding: (WindowMakerMasterlconControlier windowFor: part) 
intoClass; WindowMakerMasterlconController class 
method: part, 'Window' category: ‘specific windows’ ]}. 
Transcript cr; show: ‘Total time ', time, '.'; er 


decompress 
“WindowMakerMasterlconController decompress" 
| time | 
Transcript er. 
time «+ WindowMakerMasterlconController timeFor: [ 

#(alignment background borderingAndColoring makeMethod 
switchAndPictureBackground) do: [:part | 
WindowMakerMasterlconController 

decodeAndCompile: part 
method: part, 'Window' category: ‘generic windows']. 
#(external master masterSizing menu picture switch text) do: [:part | 
WindowMakerMasterlconController 
decodeAndCompile: part 
method: part, 'Window' category: ‘specific windows']]. 
Transcript show: ‘Total time ', time, '.'; er 
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class initialization support 


decodeAndCompile: aSymbol method: methodName category: categoryName 
"Explicitly re-encodes the view in case modifications to the encoding was done by 
hand.” 


| time view | 
Transcript show: 'Decoding ', aSymbol, '....'. 
time < self timeFor: [ 
view — WindowMaker asView: (self windowFor: aSymbol) encoding]. 
Transcript show: ' done in ', time, '.'; er. 


Transcript tab; show: ‘Compiling ', aSymbol, '....'. 
time < self timeFor: [ 
view 
compilelntoClass: WindowMakerMasterlconController class 
method: methodName category: categoryNamel]. 
Transcript show: ' done in ', time, '.'; er. 
Tview 


timeFor: aBlock 
| time’ time2 difference minutes seconds | 
time <— Time now asSeconds. 
aBlock value. 
time2 — Time now asSeconds. 
difference <— time2 - time. 
minutes < difference // 60. seconds <— difference \\ 60. 
Timinutes > 1 
ifTrue: [minutes printString, ' minutes '] 
ifFalse: [minutes = 1 
if True: ['1 minute '] 
ifFalse: [''))), 
(seconds > 1 
if True: [seconds printString, ' seconds’] 
ifFalse: [seconds = 1 
if True: ['1 second'] 
ifFalse: [''}]) 


In general, conversion is slow. Hence, it is appropriate to report on its progress in the 
transcript. The timeFor: method provides slightly nicer print results than the millisecond 
facility associated with class Time. Also, note that both the compress and decompress 
methods reference their class explicitly rather than using self — this was useful during 
development because extensions were often added by hand modifying the encoded version and 
then decompressing it. In this case, it was sufficient to modify the body of the method by 
eliminating the cases that were unaffected; e.g., by keeping only #alignment, and then 
selecting and executing the modified code. The method itself was never recompiled. 

As can be deduced from the compress and decompress methods, twelve options 
windows are provided: 


1. alignment window 
borderingAndColoring window 
3. background window 
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switchAndPictureBackground window 
5. _masterSizing window 
makeMethod window 


master window 
8. text window 
menu window (7 through 12 are individual interface windows) 
10. switch window 
11. picture window 
12. external window 


For space reasons, the detailed encoded forms have been relegated to Appendix B.3. For 
illustrative purposes, the encoding for the last window, the external window (the simplest 
and shortest), has been shown (see method externalWindow). When an options window is 
needed, a request such as 


WindowMakerMasterlconController windowFor: #alignment 


is made. If the window, in this case the alignment window, is encoded, it is first decoded and 
converted into an extended view. If it is not encoded, it is already an extended view and no 
conversion is required. 


windows 


window For: aSymbol 
indowMaker asView: (self perform: (aSymbol, 'Window') asSymbol) 


generic windows 


alignmentWindow 
borderingAndColoringWindow 
backgroundWindow 
switchAndPictureBackgroundWindow 
masterSizingWindow 
makeMethodWindow 

.. see Appendix B.3 ... 


generic windows overflow 
Methods could be added to this category by decompressing the windows 


specific windows 


switchandpictureWindow 
Tself switchWindow 


masterWindow 
textWindow 
menuWindow 
switchWindow 
pictureWindow 

.. see Appendix B.3 ... 
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externalWindow 
"Returns an initialized view." 
| anArray | 
anArray e "WindowMaker edit:" #(Master nil (-137 -89 138 89) white 1 (3.73091 
2.43963 510.135 263.873) true ‘External Window Interface’ (preOpent!nterface: 
anExtendedStandardSystemView) (nil) (350 180) (1000 1000) (classMethod 
notEncoded WindowMakerMastericonController ‘specific windows’ 
externalWindow ‘specific windows overflow’) ((Text messageSource 
(-136.0 -63.0 137.0 88.0) white 1 (messageSource (messageSource) 
(messageSource: aText) (messageMenu))) (Switch nil (-136.0 -88.0 -45.0 -63.0) 
white 1 (text ‘comment') (varying) (message {isMessage: comment) (message: 
comment))) (Switch nil (-45.0 -88.0 46.0 -63.0) white 1 (text 'name’) (varying) 
(message (isMessage: name) (message: name))) (Switch nil (46.0 -88.0 137.0 
-63.0) white 1 (text 'getView') (varying) (message (isMessage: getView) 
(message: getView))))). 
TanArray 
specific windows overflow 
Methods could be added to this category by decompressing the windows 


The Basic Controller Facility 


The controller's main concer is to determine what kind of user interaction is occurring and 
to process it in coordination with the view. The view keeps track of all icons in the window, 
including those that are currently selected. 
instance methods 
controlling 
controlinitialize 
Tview displayView 
controlActivity 
super controlActivity. 
self processKeyboard 
redButtonActivity 
[sensor redButtonPressed] whileTrue: [self processSelections) 
yellowButtonActivity 
“Determine which menu items are permitted in this context and provide only those 
to the user via a pop-up menu.” 
... details considered in a later section ... 


index + (PopUpMenu labels: labels lines: lines) startUp. 
index ~= 0 ifTrue: [self perform: (selectors at: index)] 
processKeyboard 
“Determine whether the user pressed the keyboard. If so, read the keys." 
[sensor keyboardPressed] whileTrue: [self dispatchOnCharacter: sensor keyboard) 


The mouse menu controller's main task (method controlActivity) is to determine 
whether or not a button has been depressed and if it has, to send a corresponding message 
(message yellowButtonActivity, redButtonActivity, or blueButtonActivity) to itself 
for further processing. However, it ignores keyboard characters. Our version of control- 
Activity inherits this behavior but also processes keyboard requests. Blue button activity is 
defaulted while red and yellow button activities are handled specially. In order of complexity, 
keyboard activity is the simplest to process, next is red button, and last is yellow button. 
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A Standard System Controller with a Cancel Facility 


Before we get into the details of the master icon controller, we present a variation of the 
standard system controller with a cancel facility. This controller is used by pop-up windows 
that appear as a result of yellow button menu choices. It actually provides two facilities: 


1. A close facility that causes the master controller to regain control no matter what 
window had previous control. 


2. A cancel facility that records the fact that it was canceled and closes as above. 
The initiator, the master icon controller in our case, can query the controller after the 
fact to determine whether a close or cancel caused termination. In our case, we will actually 


use a postclosing operation to perform the querying. These details, however, are premature to 
the discussion — they may be safely ignored for the time being. 


Class WindowMakerControllerWithCancel 


class WindowMakerControllerWithCancel 
superclass StandardSystemController 
instance variables canceled initiator 


class methods 
instance creation 


withCancelFor: aController 
Tself new initiator: aController; initializeBlueButtonMenuWithCancel 


withoutCancelFor: aController 
Tself new initiator: aController 


instance methods 
instance initialization 


initialize 
super initialize. 
canceled e- false 


initializeBlueButtonMenuWithCancel 
“Initialize the blue button pop-up menu and corresponding array of messages for the 
receiver. Refer to class method initialize in StandardSystemControlier for up-to- 
date menu items." 
self 
blueButtonMenu: (PopUpMenu 
labels: ‘new label\under\move\frame\collapse\close\cancel’ withCRs 
lines: #(1 5)) 
blueButtonMessages: #(newLabel under move frame collapse close cancel) 


initiator: aController 
initiator <— aControlier 


querying 


canceled 
Tcanceled 
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menu messages 


cancel 
canceled <— true. “for postclosing interrogation" 
self close 
close 
“Signal the initiating controller.” 
initiator forgetPopUpWindow. view erase; release. 
ScheduledControllers 
unschedule: self; 
activeController: initiator view topView controller. 
Processor terminateActive 


As we will see, the yellow button menu choices will result in a pop-up window. 
These windows will make use of the above controller (see yellow button activity below). 


Keyboard Activity (Copy, Cut, Paste, Delete, Group, Ungroup) 


Our approach is to process only the characters corresponding to the copy, cut, paste, delete, 
group, and ungroup operations and to ignore the rest. Since our window maker was develop- 
ed on a Mac II, we used standard Macintosh characters to denote copy, cut, and paste; i.e., 
éc, éx, and Év respectively. Additionally, we introduced two new characters, @g and @u, 
for group and ungroup respectively. These characters were determined interactively by un- 
commenting the code at the end of the dispatchOnCharacter: method and physically typ- 
ing the characters desired. Their equivalents were then integrated explicitly into the method. 
character processing 
dispatchOnCharacter: aCharacter 

"Carry out the action associated with this character." 

“ParcPlace Smalltalk equivalents.“ 

aCharacter = Character backspace ifTrue: [Tself processCharacterDelete]. 

aCharacter = (Character value: 3) "ctl c" ifTrue: [Tself processCharacterCopy]. 

aCharacter = (Character value: 24) “ctl x" if True: [Tself processCharacterCut). 

aCharacter = (Character value: 22) “ctl v" ifTrue: [Tself processCharacterPaste]. 

aCharacter = (Character value: 7) ‘ctl g" ifTrue: [Tself processCharacterGroup]. 

aCharacter = (Character value: 21) “ctl u“ if True: (Tself processCharacterUngroup]. 

"Apple Smalltalk equivalents. 

aCharacter = Character backspace ifTrue: [Tself processCharacterDelete]. 

aCharacter = (Character value: 3) ?ctl c? if True: [Tself processCharacterCopy]. 

aCharacter = (Character value: 151) ?ctl x? if True: [Tself processCharacterCut). 

aCharacter = (Character value: 134) ?ctl v? ifTrue: [Tself processCharacterPaste]. 


aCharacter = (Character value: 231) ?ctl g? ifTrue: [Tself processCharacterGroup]. 
aCharacter = (Character value: 21) ?ctl u? ifTrue: [Tseif processCharacterUngroup]." 


“Ignore anything else” 
“To determine what character some control character is, uncomment the following 
code, open a WindowMaker editor, and type it." 


“Transcript er; show: ‘Ignored character ', aCharacter storeString, 
' <', aCharacter asinteger printString, '>'; cr" 


Note that the copy buffer used (IconCopyBuffer) is a class variable. Consequently, it is 
possible to cut from one window maker editor to another. Additionally, when selected icons 
are copied and later pasted, two copies are made rather than one — one copy at the source 
(the copy operation) and another at the destination (the paste operation). Clearly, we need to 
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copy at the destination, because the same icons can be pasted more than once to produce du- 
plicates. Originally, we didn't copy at the source. However, the following sequence of events 
occurred and caused us to change our strategy. First, we made a copy of an icon. Then we 
forgot about it and made changes to it; e.g., changing its size and background color. Next we 
pasted the icon and found not the icon that we had copied but the icon as it currently existed. 
It is clearly important to copy at both the source and the destination. 


Recall that the view for the master controller keeps track of the icons and which ones 
are selected. The icons themselves can resize and change their locations. Correspondingly, 
there are several view and icon methods used by the controller that we haven't discussed yet; 
e.g., selections, clearSelections, and moveBy:. In each case, the intent should be 
evident. Additionally, grouping and ungrouping make use of the special WindowMaker- 
GroupIcon class, which we will discuss in more detail in a later section. 


character processing 


processCharacterCopy 

IconCopyBuffer — view selections collect: [:icon | icon shallowCopy) 
processCharacterCut 

self processCharacterCopy; processCharacterDelete 
processCharacterPaste 


| newlcon selections | 
IconCopyBuffer isNil ifTrue: [Tself]. 
view clearSelections. selections e view selections. 
lconCopyBuffer do: [:icon | 
newlcon < icon shallowCopy. view addSubView: newlcon. 
selections add: newlcon. newlcon moveBy: 10@10]. 
view displayView 


processCharacterDelete 
view selections do: [:icon | view ramoveSubView: icon]. 
view clearSelections; displayView 


processCharacterGroup 
| group newlcon selections | 
selections < view selections. 
selections size < 2 ifTrue: [Tself]. “avoid grouping unnecessarily” 
selections do: [:icon | view removeSubView: icon]. 
newicon e WindowMakerGrouplcon new group: selections. 
view clearSelections. view selections add: newlcon. 
view addSubView: newicon; displayView 


processCharacterUngroup 
| newSelections oldSelections | 
oldSelections + view selections. 
view clearSelections. 
newSelections + view selections. 
oldSelections do: [:icon | 
{icon isKindOf: WindowMakerGrouplcon) 
ifTrue: [ 
view removeSubView: icon. 
icon subViews shallowCopy do: [:groupicon | 
view addSubView: grouplcon. 
newSelections add: grouplcon]) 
ifFalse: [newSelections add: icon]]. 
view displayView 
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Red Button Activity (Selection Processing) 


Red button activity is concerned with processing mouse interactions that control selecting, 
deselecting, moving, and resizing icons. More specifically, it provides the following 
capabilities: 


1. The ability to select an icon by pressing the (red) mouse button over it. 


2. The shift-clicking facility that permits additional icons to be selected or deselected 
by pressing the mouse button over them while the shift key is down. Shift- 
clicking over a previously selected icon deselects it. 


3. The rectangular lasso-selection facility (see Fig. 8.21) that provides an 
alternative approach to selecting a set of icons. Depressing the mouse over an 
open area and moving it causes a rectangle to appear and track the mouse (the 
lasso). When the button is released, all icons touching the rectangle are selected. 
The shift-clicking facility can then be used to add or remove specific icons. 


4. The ability to move a set of selections (see Fig. 8.22) by depressing the mouse 
over one of them and moving it without releasing the button. An abstracted 
picture of the selected icons track the mouse until the button is released. 


5. The ability to change the size of an icon (see Fig. 8.23) by depressing the mouse 
inside the grow box (at the bottom right corner) and either moving toward the 
center of the icon (shrinking it) or moving away from the icon (growing it). 
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Figure 8.21 The rectangular lasso-selection facility. 
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Figure 8.22 Moving a set of icons. 
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Figure 8.23 Growing an icon. 
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In cases where a boundary rectangle is drawn, the basic strategy is the same. A rectan- 
gle is drawn with rule ‘Form reverse’ twice in succession — the first rectangle ends up be- 
ing erased by the second. In some cases, explicit rectangles are drawn by the controller, as in 
method processNoSelection; in others, the icons explicitly reverse their own boundary. 


selection processing 


processSelections 
“If the shift key is down, a new selection is added and an old selection is removed. 
If the shift key is up, new selections replace existing selections; old selections are 
moved. If nothing is selected, all old selections are removed." 
| selectionPoint | 


selectionPoint <— Sensor cursorPoint. 
view subViews do: [:icon | 
{icon containsPoint: selectionPoint) ifTrue: { 
Sensor leftShiftDown 
ifTrue: { 

(view selections includes: icon) 
ifTrue: [view deselect: icon] 
ifFalse: [view select: icon). 

Sensor waitNoButton] 

ifFalso: [ 

(view selections includes: icon) 

ifFalse: [view deselectAll; select: icon). 


self 
moveOrAdjustSelections: icon 
initialMousePoint: selectionPoint). 
Tself]l. 
self processNoSelection 
processNoSelection 


“For choosing multipie selections, draw a rectangle that tracks the mouse. Draws by 
repeatedly erasing the previous rectangle and redrawing the new. By using rule 
reverse for all drawing, we guarantee that all lines drawn can be undone." 


| startPosition endPosition draw borderRectangle newEndPosition | 
view deselectAll. 


startPosition < Sensor cursorPoint. endPosition < startPosition. 
draw < [ 
borderRectangle < (startPosition min: endPosition) 
corner: (startPosition max: endPosition). 
Display 
border: borderRectangle 
width: 2 rule: Form reverse mask: Form black). 


"The first time a border is drawn, a no-op results; the borderRectangle is empty.” 
[Sensor redButtonPressed] whileTrue: [ 
newEndPosition e Sensor cursorPoint. 
newEndPosition = endPosition ifFalse: [ 
draw value. “Erase the old." 
endPosition < newEndPosition. 
draw value “Draw the new."]]. 
draw value. “Erase the last borderRectangle" 


view subViews da: [:icon | 
{icon displayBox intersects: borderRectangle) ifTrue: [ 
view select: icon]] 
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When start and end points are provided (the top left and bottom right corners respec- 
tively), it is casy to draw a rectangle using method border:width:rule:mask: (see method 
processNoSelection). However, the rectangle is drawn only if the origin is to the left and 
above the corner. If it isn't, nothing is drawn at all. Consequently, if borderRectangle were 
set to the obvious ‘startPosition corner: endPosition’, the visual effect provided the 
designer would change dramatically. In particular, dragging the mouse down and/or to the 
right would produce a rectangle as shown in Fig. 8.21. However, dragging it up and/or to 
the left would have no visual effect — no rectangle would display; it would be a no-op. 


moveOrAdjustSelections: icon initialMousePoint: start 
“If the mouse is on the grow box, deselect all other windows and adjust the size of 
this one; otherwise, move the selections." 


(icon growBoxContainsPoint: start) 
ifTrue: (self adjustSelections: icon initialMousePoint: start] 
ifFalse: [self moveSelectionsinitialMousePoint: start) 


adjustSelections: icon initialMousePoint: start 
“Deselect all other windows and adjust the size of this one." 
| startPoint draw endPoint | 
startPoint < start. 
view deselectAll; select: icon. 
draw e [icon reverseBoundary]. 


draw value. "Draw initial selection boundaries.“ 
[Sensor redButtonPressed) whileTrua: [ 
endPoint e Sensor mousePoint. 
startPoint = endPoint ifFalse: [ 
draw value. "Erase selection boundaries.” 
icon growBy: endPoint - startPoint. 
draw value. “Redraw selection boundaries." 
startPoint — endPoint]]. 
draw value. “Erase final selection boundaries.” 
view displayView 


moveSelectionsInitialMousePoint: start 
“Have the selections track the mouse as long as it is depressed." 
| startPoint draw endPoint displacement | 
startPoint e start. 
draw < [view selections do: [:icon | icon reverseBoundary)]]. 


draw value. “Draw initial selection boundaries." 
[Sensor redButtonPressed] whileTrue: [ 
endPoint — Sensor mousePoint. 
startPoint = endPoint ifFalse: [ 
displacement + endPoint - startPoint. 
draw value. “Erase selection boundaries." 
view selections do: [:icon | icon moveBy: displacement). 
draw value. “Redraw selection boundaries." 
startPoint e endPoint]]. 
draw value. “Erase final selection boundaries.” 
view displayView 


In each case above, the start point is passed along as a parameter for accuracy. If the 


Start point were recomputed locally, it would be noticeably different in situations where the 
mouse was moving reasonably fast. 
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Yellow Button Activity (Pop-up Option Menus) 


Normally, yellow button activity is a simple process that includes (1) constructing a list of 
possibilities, (2) using it as data to create an instance of PopUpMenu or ActionMenu, (3) 
starting it up, and (4) executing the method corresponding to the selection (if any). The dif- 
ficulty here is that the list is not fixed. It depends on the icons selected, their number, and in 
some cases, their class. It also depends on the prior state of the controller; i.e., whether or not 
an options window is currently open as a consequence of a prior yellow button menu choice. 


delete 
copy (@c} 


group (@a) 
border/color ungroup (@u 


external interface border/color 
set minimum and maximum sizep external interface 


move all into view move all into view 
envelope icons envelope icons 
expand a bit expand a bit 
shrink a bit shrink a bit 


no icons 


delete 
delete copy (@c) 


copy (@c} 


group (@g) 
ungroup (@u 


group (@g) 
ungroup (@u 
border/color 
background 

external interface 


align 
border/color 


envelope icons 
expand a bit 
shrink a bit 


make method 
help 


envelope icons 
expand a bit 
shrink a bit 


make method 
help 


text and menu icon switch icon 


Figure 8.24 Examples of yellow button menus. 


Some yellow button menu examples are shown in Fig. 8.24. When no icons are 
selected, the master icon is implicitly chosen. The minimum and maximum size, for exam- 
ple, only applies to the master icon. When a single icon is selected, the external interface for 
that icon can be specified. When several icons are selected, common features like border- 
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ing/coloring and alignment can be specified. The switch icon, among others, permits more 
detailed specification of the background — either textual or pictorial. Of course, some entries 
(the bottom entries, for example) are provided in all cases. 


yellowButtonActivity 
“Determine which menu items are permitted in this context and provide only those 
to the user via a pop-up menu.” 


| selections ungroupedSelections labels lines selectors atLeastOneSwitchAndPictures 
selectionsAliSwitchesOrPictures index | 


“Refuse to permit two pop-up windows." 
previousPopU pWindow isNil ifFalse: [ 
(PopUpMenu 
labels: ‘cancel previously active pop-up window’ 
lines: #()) startUp ~= 0 ifTrue: [self cancelPopUpWindow}). 


selections + view selections. ungroupedSelections < view ungroupedSelections. 
labels + OrderedCollection new. lines — OrderedCollection new. 
selectors <— OrderedCollection new. 


“The <delete, copy, cut, paste> entries." 
selections size > 0 
ifTrue: [ 
labels addAll: #(‘delete’ ‘copy (@c)' 'cut (@x)’). 
selectors addAll: #(processCharacterDelete processCharacterCopy 
processCharacterCut)]. 
labels 
add: ‘paste (@v)’. selectors add: #processCharacterPaste. lines add: labels size. 


“The <group, ungroup> entries.” 
selections size > 0 
ifTrue: { 
labels addAll: #(‘\group (@g)' ‘ungroup (@u}’). 
selectors addAll: #(processCharacterGroup processCharacterUngroup). 
lines add: labels size). 


“The <icon visual adjustment> entries.” 
selections size > 1 
ifTrue: [labels add: ‘align’. selectors add: #align}. 


labels add: ‘border/color’. selectors add: #borderAndColor. 


selectionsAllSwitchesOrPictures +- (ungroupedSelections 
detect: [:anlcon | (anicon isKindOf: WindowMakerSwitchOrPicturelcon) not] 
ifNone: [ni!)) isNil. 
(selections size > 0) & selectionsAllSwitchesOrPictures 
ifTrue: [ 
labels add: ‘background’, 
atLeastOneSwitchAndPicture < (ungroupedSelections 
detect: [:anicon | 
anicon isKindOf: WindowMakerSwitchAndPicturelcon] 
ifNone: [nil]) notNil. 
atLeastOneSwitchAndPicture 
ifTrue: [selectors add: #switchAndPictureBackground} 
ifFalse: [selectors add: #background]]. 
selections size <= 1 
ifTrue: {labels add: ‘external interface’. selectors add: #interface]. 


selections size = 0 
ifTrue: [labels add: ‘set minimum and maximum size’. selectors add: #setSize}. 
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self combinableSwitchAndPicture 
ifTrue: [ 
labels add: 'combine switch and picture’. 
selectors add: #combineSwitchAndPicture]. 
lines add: labels size. 
“The <editor adjustment> entries.” 


labels addAll: #{'‘move ali into view’ 'envelope icons’ ‘expand a bit’ ‘shrink a bit’). 
selectors addAll: #(show envelope grow shrink). 
lines add: selectors size. 


"The <window output and help> entries.” 


labels addAIll: #(‘make method' ‘help'). selectors addAll: #(makeMethod help). 


“Ask the user for a selection.” 
labels < labels inject: "' into: [:result :selector | 
result isEmpty 
ifTrue: [selector] 
ifFalse: [result, (String with: Character er), selector}. 
index «- (PopUpMenu labels: labels lines: lines) startUp. 
index ~= 0 if True: [self perform: (selectors at: index)] 


Note that delete, copy, cut, paste, group, and ungroup are handled by the existing 
character processing methods; e.g., delete can be specified via either a keyboard character or a 
menu choice. 


Before we consider the methods for handling the actual menu messages, it is worth 
recalling that the master controller has an instance variable previousPopUpWindow. When a 
window pops up in response to a menu selection, the view for that window is saved in 
previousP opUpWindow. If an attempt is made to open a second window, it is possible to 
inform the designer or cancel the first window. Twelve different windows can pop up, each 
corresponding to a different menu selection. The views for these windows are obtained from 
the class method windowFor:. The controller is an instance of WindowMakerController- 
WithCancel. The model could be either one of the icons selected or a group of such icons 
encapsulated in an instance of class WindowMakerGrouplcon. Several methods are provided 
to set up this MVC triad. 


menu messages support 


popUpWithCancel: windowName onGroup: selections 
self 
popUp: (WindowMakerlconController windowFor: windowName) 
controller: (WindowMakerControllerWithCancel withCancelFor: self) 
on: (WindowMakerGroupicon new temporaryGroup: selections) 


popUpWithCancel: windowName onlndividual: selection 
self 


popUp: (WindowMakerlconController windowFor: windowName) 
controller: (WindowMakerControllerWithCancel withCancelFor: self) 
on: selection 


popUpWithoutCancel: windowName onGroup: selections 
self 


popUp: (WindowMakerlconController windowFor: windowName) 
controller: (WindowMakerControllerWithCancel withoutCancelFor: self) 
on: (WindowMakerGroupicon new temporaryGroup: selections) 


Chapter 8 A Window Application 423 


popUpWithoutCancel: windowName onlndividual: selection 
self 
popUp: (WindowMakerlconController windowFor: windowName) 
controller: (WindowMakerControllerWithCancel withoutCancelFor: self) 
on: selection 


popUnp: aView controller: aController on: aModel 
((previousPopUpWindow e aView) controller: aController; models: aModel) open 


forgetPopUpWindow 
previousPopUpWindow < nil 


The following menu messages that result in the appearance of option windows typi- 
cally rely on the fact that method yellowButtonActivity has prescreened the icon or icons 
to which they apply. For example, some apply to individual icons only, some require a set 
of two or more icons, some apply only to switch icons. Additionally, since icons can be 
grouped, some menu messages treat these as individual icons. Others want the grouping to 
be essentially transparent so that the icons in the group are individually affected. This is 
actually recursive, since a group can contain other groups. This is the case for the menu 
messages that set the border width or the inside color. A group doesn't have a border width or 
inside color. These respective icons can be obtained from the view via messages selections 
and ungroupedSelections respectively. 


Note that only seven messages are explicitly provided in the following, rather than the 
twelve discussed previously. However, method interface actually retrieves master, text, 
menu, switch, picture, and external windows. Also, note that variation popUp...onIndivi- 
dual: is not actually used. Earlier versions used it in methods interface, setSize, and 
makeMethod. In the current design, all models are group icons. Consequently, all 
pluggable messages are centralized in the WindowMakerGrouplIcon class. 


menu messages (options windows) 


align 
self popUpWithCancel: #alignment onGroup: view selections 


borderAndColor 
| selections | 
(selections — view ungroupedSelections) isEmpty 
ifTrue: [selections — Array with: view]. 
self popUpWithoutCancel: #borderingAndColoring onGroup: selections 
background 
self popUpWithoutCancel: #background onGroup: view ungroupedSelections 
switchAndPictureBackground 
self popUpWithoutCancel: #switchAndPictureBackground 
onGroup: view ungroupedSelections 
interface 
“Warning: only individual icons are handled.“ 
| selections name selection | 
{selections e view selections) isEmpty ifTrue: [selections + Array with: view]. 
selections size > 1 ifTrue: [self error: Implementation oversight’]. 
selection & selections first. 


name < selection shortClassName asLowercase. "??? in WindowMaker??? Icon" 
self popUpWithoutCancel: name onGroup: selections 
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setSize 


self popUpWithoutCancel: #masterSizing onGroup: (OrderedCollection with: view) 


makeMethod 


self popUpWithCancel: #makeMethod onGroup: (OrderedCollection with: view) 


The short class name used by the interface method is provided by the Window- 


Makerlcon abstract class. 
Class WindowMakericon 
class WindowMakerlcon 
superclass ExtendedSwitchView 


instance variables 


default naming 
classNamePicture 


Tself shortClassName asLowercase asParagraph 


shortClassNameo 


| className | 
className < self class name. "WindowMaker...lcon" 
TclassName copyFrom: 12 to: className size - 4 “the ... portion” 


Not all menu messages result in options windows popping up. In particular, the 
following menu messages are processed directly. Additionally, the help menu message 
results in a confirmer with instructions. The designer's response to the confirmation is 
simply ignored. 


1. 
2. 


cancelPopUp Window — eliminates the previously opened options window. 


combineSwitchAnd Picture — permits two separate icons (a switch and a 
picture, as shown in Fig. 8.12) to be combined into one. Originally, this 
message was used to convert our own windows after we added combined 
switch/picture icons; this conversion operation was intended to be temporary. 
However, we ended up using the facility at isolated times every now and then. In 
the end, we decided to keep it as a useful facility. Note, however, that no converse 
operation is provided. 

show — forces all icons in the window to be moved so as to be visible. Because 
of zooming, it is possible to focus in a small area and lose track of icons that are 
not directly visible. This is another example of a menu message that was provided 
to aid development but that proved useful enough to be retained. 


envelope — causes the window to adjust itself in order to exactly surround the 
icons it contains. This is typically the last operation done before generating a 
method for an application window. Alternatively, it is sometimes followed by a 
grow operation to provide a little extra white space around the icons. Fig. 8.25 
provides an illustration of the facility. 

grow — enlarges the window by a small fixed amount. The icons remain 
unchanged. 


shrink — shrinks the window by the same small fixed amount. The icons remain 
unchanged. 
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Figure 8 8.25 5 Adjusting the O 3 grows, 2 shrinks. 


When a window is adjusted via envelope, grow, or shrink, the old image is retained. 
This is inconsequential when growing, since the larger image obliterates the smaller one 
underneath. However, the older image is still perceived when shrinking. Redrawing the 
screen will eliminate these superfluous images. Nevertheless, it can provide a useful history 
of the changes. To obtain Fig. 8.25, an arbitrarily sized window maker editor was opened 
and then three icons were constructed, sized, and arbitrarily placed in the icon window. Then 
we enveloped the icons and performed three grow operations in a row. No history of these 
three grow operations is evident. However, the two subsequent shrink operations can be 
clearly seen. One more shrink operation (had we done it) would have resulted in the window 
exactly surrounding the three icons. 

Changing the size of a top view is relatively simple — execute ‘topView window: 
existing Window viewport: desiredDisplayBox’. This will change the local transformation 
and unlock all subviews. Attempts to display a subview will cause its display transformation 
and consequently the new display box that corresponds with the above to be recomputed, 

The difficulty in our case is that the icons are not in the top view but in a subvicw. 
Even though we may be able to determine what the display box should be for the subview, 
there is no direct way to determine how that affects the display box for the top view. Auxi- 
liary method ‘resize: aView displayBoxTo: aViewDisplayBox’ is provided to solve this 
problem. Given the desired display box for a subview, it is possible to compute the required 
display box for its superview. By iteratively performing this computation until the top view 
is reached, we will have solved the initial problem. 
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Let us now concentrate on the simpler problem. It can be paraphrased as “given that 
subview w is to have display box d, determine the display box D for superview W.” The key 
to a solution is the observation that the only local transformation modified when a top view 
is resized is the local transformation of the top view. The local transformations of all 
subviews, no matter how deeply nested, are unchanged. Of course, this causes the display 
transformation for the top view to change, and consequently the display transformations of 
all subviews to change because they are computed in terms of their superview's display 
transformations. What this means intuitively is that we don't need to change anything — we 
just need to use existing information judiciously. 

Note that w is mapped into some portion w' of W by the local transformation. 
Technically, w' is w's viewport. If d is the display box associated with w' (since it is related 
to w), and D is the display box for W, it should be clear (see Fig. 8.26) that d and D are 
proportional to each other in the same way that w' and W are proportional to each other. If 
we can determine the transformation that maps w' to d, the same transformation will map W 
to D. If t is this transformation, then 

w' e w viewport 

t — WindowingTransformation window: w' viewport: d 

D & t applyTo: W 


Figure 8.26 Adjusting the window —envelope, 3 grows, 2 shrinks. 


menu messages (no options windows) 


cancePopUpWindow 
“In case it cannot be closed, pretend it did.” 
| save | 
save <— previousPopUpWindow. 
self forgetPopUpWindow. 
ScheduledControllers unschedule: save controller. 
save release. 
ScheduledControllers restore 
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combineSwitchAndPicture 
| switch picture combined border box | 
switch — view selections detect: [:icon | icon isMemberOf: WindowMakerSwitchlicon]. 
picture & view selections detect: [:icon ! icon isMemberOf: WindowMakerPicturelcon]. 


combined e WindowMakerSwitchAndPicturelcon new 
name: switch name; 
transformation: switch transformation; 
window: switch window; 
insideColor: switch insideColor; 
borderWidthLeft: (border — switch borderWidth) left 
right: border right top: border top bottom: border bottom; 


pictureFormPathName: (switch encodedPictureData copyFrom: 2 to: 3); 
lockedSizeExpansion: switch lockedSizeExpansion; 
“The following 3 messages are explained in the next section.” 
changeMessage: #updateSymbol 

receiver: (switch receiverFor: #updateSymbol); 
changeMessage: #isOn 

selectorArguments: (switch codingWithoutReceiverFor: #isOn); 
changeMessage: #switch 

selectorArguments: (switch codingWithoutReceiverFor: #switch); 
pictureString: picture pictureString; 
fixMiddleLeft. 


box < switch getWindow merge: picture getWindow. 
combined getWindow origin: box origin; corner: box corner. 
combined computeLabel. 


view removeSubView: switch; removeSubView: picture; addSubView: combined. 
view selections remove: switch; remove: picture; add: combined. 

combined unlock; lock. 

view displayView 


show 
"Move ali icons into the view to ensure their visibility.” 
view subViews do: [:anicon | 
anlcon displayBox extent > (10@10) ifFalse: [anicon growTo: 10@ 10]. 
anicon moveBy: (anicon displayBox amountToTranslateWithin: view displayBox)]. 
view displayView 


envelope 
“Make the view exactly contain the existing subviews." 


| subViews newDisplayBox offset superDisplayBox | 
subViews e view subViews. subViews size = 0 if True: [view flash. Tself]. 


“The new display box must contain all subviews and the border.” 
newDisplayBox + (subViews inject: subViews first displayBox into: [:box :aView | 
box merge: aView displayBox]) expandBy: view borderWidth. 


"Moreover, the center of the new display box must be at the center of the view. 
This can be achieved only if the subviews are offset by the same amount." 

offset — view displayBox center - newDisplayBox center. 

newDisplayBox moveBy: offset. “Move its center to the old one." 

subViews do: [:aView | aView moveBy: offset]. 


"Change the display box for the top view." 
self resize: view displayBoxTo: newDisplayBox 
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grow 
“Enlarge this view's display box by 10@10." 
self resize: view displayBoxTo: (view displayBox expandBy: 10) 


shrink 
“Shrink this view's display box by 10@10." 
self resize: view displayBoxTo: (view displayBox insetBy: 10) 


help 
self confirm: ( 

‘A detailed description of master windows can be obtained \’, 
‘by ensuring that nothing is selected and choosing the V, 
‘external interface entry in the yellow button pop-up Y, 
‘menu. Similar descriptions for the other classes of windows\', 
‘can be obtained by selecting one of these windows and \', 
‘choosing the same external interface entry. y, 
y 
‘If no such window exists, one can be created by pressing \, 
‘one of the switches at the top. The new window that VY, 
‘appears can be placed anywhere in the pane below V, 
‘the switches. ‘) withCRs 


menu messages support 


combinableSwitchAndPicture 

| switch picture | 

Tview selections size = 2 and: [ 

(switch + view selections 
detect: [:icon | icon isMemberOf: WindowMakerSwitchlcon) 
ifNone: [nil]} notNil and: [ 

(picture — view selections 
detect: [:icon | icon isMemberOf: WindowMakerPicturelcon] 
ifNone: [nil]) notNil and: [ 

switch pictureVariety == #form]]] 


resize: aView displayBoxTo: aViewDisplayBox 
“This is achieved by recursively computing the display boxes of all super views. It is 
physically changed for the top view." 
| currentView newDisplayBox | 


“Determine the successive superview display boxes (remember the last).” 
currentView & aView. newDisplayBox < aViewDisplayBox. 
{currentView isTopView] whileFalse: [ 


newDisplayBox < self superViewDisplayBoxFrom: currentView 
and: newDisplayBox. 
currentView <— currentView superView). 


currentView window: currentView getWindow viewport: newDisplayBox. 


“Make the close box visible?" 


((Display boundingBox insetBy: (Rectangle left: 0 right: 1 top: 1 bottom: 0)) 
containsPoint: newDisplayBox origin) ifFalse: [ 
currentView 


align: currentView displayBox topLeft 
with: 0@currentView labelDisplayBox height]. 


currentView lock; displayEmphasized 
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superViewDisplayBoxFrom: aView and: aViewDisplayBox 

"Determines the superview's display box from a new (arbitrary) display box for the 
view. Note: if t maps this view's viewport to aViewDisplayBox, then t will also map 
the superview's window to its new display box." 
T(WindowingTransformation 

window: aView getViewport 

viewport: aViewDisplayBox) “t” 

applyTo: aView superView getWindow 


8.4.6 The WindowMakerMastericon Class 


The window maker master icon supports the window maker master icon controller by 
keeping track of the currently selected icons, the minimum and maximum sizes for the 
application window, and a set of output options that specifies how the application window is 
to be generated; e.g., in the transcript, as a class method, or as an instance method. In the 
last two cases, additional information must also be provided; i.e., the class name, method 
name, category name, and overflow category name (in case more than one method is needed 
to generate the application window). 
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Figure 8.27 Dropping the menu icon outside the icon container pane causes it to 
slide back into the menu switch. 
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The WindowMakerlcon class also supports the WindowMaker class by providing 
method makelcon: for instantiating icons. An icon is created when a designer depresses one 
of the top switches. It is added to the icon container pane if the user deposits it inside the 
bottom pane, Otherwise, it slides back (as shown in Fig. 8.27) to the menu switch from 
which it appeared. 

Those methods discussed in special sections are referenced but omitted to eliminate 
unnecessary duplication. 


Class WindowMakerMastericon 


class WindowMakerMastericon 
superclass WindowMakericon 
instance variables selections minimumSize maximumSize outputOption 


class methods 

no messages 
instance methods 
instance initialization 


initializeMessages 
... see Sect. 8.4.2, Initializing a New Icon's Interface Data ... 


initialize 
super initialize. 
window < Display boundingBox. “minimize transformation roundoff errors.” 
selections + OrderedCollection new. 


minimumSize — 50@50. 
maximumSize + Display boundingBox extent. 


outputOption <— #transcript “versus instanceMethod versus classMethod" 
encoded “versus notEncoded" 


aClassName aCategoryString aMethodName anOverFlowCategoryString) copy 


makelcon: aniconClass 
“Creates a new icon and keeps it if the user positions it inside the view." 
| center icon aForm offset position aRectangle | 


“Deselect all icons and make an icon at the current cursor point; set up initial 
information." 


center <— Sensor cursorPoint. self deselectAll. 
self addSubView: (icon — aniconClass new). 


“First draw the icon onto a form." 

aForm < Form extent: icon displayBox extent. 

icon 
displayOn: aForm at: 0@0 clippingBox: aForm boundingBox rule: Form over 
mask: Form black. 


“Next, make it follow the cursor until it is depressed." 
offset — aForm extent // 2. 
aForm 
follow: [position — Sensor cursorPoint - offset} 
while: [Sensor redButtonPressed not). 
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"Make the new icon permanent only if it is inside the window maker view.“ 
aRectangle + position extent: aForm extent. 
(self insetDisplayBox contains: aRectangle) 
ifTrue: [“Make it permanent." 
icon moveTo: position. 
aForm displayAt: position. 
self select: icon] 
ifFalse: ["Make it go back into the switch." 
self reamoveSubView: icon. 
aForm slideFrom: position to: center-offset nSteps: 20) 


encoding/decoding 
.. see Sect. 8.4.8, Encoding/Decoding ... (also see Appendix 8.5) ... 


generating views 
.. see Sect. 8.4.8, ... Converting to Extended Views, ... (also see Appendix B.6) ... 


Recall (see Sect. 8.4.3, Displaying, Moving, and Sizing) that each icon was designed 
to ensure that its window, viewport, and display box would all have the same extent. 
However, the window origin was permitted to be different from the display box origin. 

To maintain this constraint, scaling the master icon must not result in a rescaling of 
its local transformation. If it did, the display boxes for the contained icons (the subviews) 
would change without the windows changing. Consequently, the default scaleBy: method 
must be superseded by one that specifically rescales the icons. An icon rescales itself by 
changing its window rather than its local transformation, which is always the identity 
transformation. 


zooming 


zoomin 
self scaleBy: 1.1@1.1. 
self displayView 


zoomOut 
self scaleBy: 0.9@0.9. 
self displayView 


scaleBy: scale 
“Since this view does not scale, scale the subviews." 
subViews do: [:anicon | anlcon scaleBy: scale) 


If the window maker is moved or resized, the icons at the center of the icon container 
pane should remain at the center of the newly positioned pane. Moreover, resizing the 
window maker should result in seeing more or less of the icons, not in the icons changing 
size. To achieve this, it would be nice if we didn't have to do anything special to the icons in 
the container pane. 

One approach is to have all the icon windows positioned in a master window whose 
center is always a constant; e.g., 0@0 for simplicity. If this window (with center 0@0) is 
the same size as the display box, providing a local transformation that maps it to the display 
box will result in a display transformation without scaling. 
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displaying 


computeDisplayTransformation 
“Ensure that (1) this view does not scale, and (2) the window center maps to the 
display box center. One solution is to ensure that the window center is 0@0 and the 
same as the display box; a side benefit is that the subicons need never be moved 


since they are always positioned in a window that appears to be fixed." 
| box | 
“First, compute the normal way (need the display box) and then change it." 
displayTransformation «+ superView displayTransformation 
compose: transformation. 
box < self displayBox. 
window + box copy moveTo: 0@0 - (box extent // 2). 
viewport + superView inverseDisplayTransform: box. 
transformation < WindowingTransformation 
window: window viewport: viewport. 
displayTransformation <— WindowingTransformation 
scale: nil translation: (box origin - window origin). 
TdisplayTransformation 


Windows (consider the system browser) are generally displayed by painting local 
information, such as the border and inside color, and then recursively displaying the 
contained views. The result is a noticeable sequence of painting activities as the successive 
subwindows are displayed. A better approach is to paint the entire window on an internal 
form and then display the form in one step. 


displaying 


display 
self displayView 


displayView 
“Creates a form with the existing icons and then displays the form. This prevents 
the user from seeing the icons individually displayed one after the other." 
| displayArea extent canvas offset canvasDisplayArea labelDisplayBox | 


self isUnlocked ifTrue: [self lock]. 

displayArea < self displayBox. 

offset <— displayArea origin. extent — displayArea extent. 

canvas < Form extent: extent. 

canvasDisplayArea <- (0@0 extent: extent) insetBy: self borderWidth. 


Cursor normal showWhile: [ 


canvas black; fill: canvasDisplayArea mask: insideColor. 
subViews do: [:icon | 
icon displayOn: canvas 
at: icon displayBox origin - offset clippingBox: canvasDisplayArea 
rule: Form under mask: Form black]. 
selections do: [:icon | 
icon highlightOn: canvas 


at: icon displayBox origin - offset clippingBox: canvasDisplayAreal]. 


canvas displayOn: Display at: offset. 
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When a user selects an icon, the master icon controller manages the mouse interactions 
and asks the master icon to either select or deselect a new candidate. The candidate is 
immediately highlighted or dehighlighted. Hence, there is no need to redisplay the entire 
view. This permits fast interactive feedback. 


selections 


select: icon 
selections add: icon. icon highlight. 


deselect: icon 
selections remove: icon. icon dehighlight. 


deselectAll 
{selections size = 0] whileFalse: (selections removeFirst dehighlight]. 


clearSelections 
selections — OrderedCollection new 


selections 
Tselections 


ungroupedSelections 
| ungroupedSelections | 
ungroupedSelections + OrderedCollection new. 
selections do: [:selection | 
selection groupDo: [:icon | ungroupedSelections add: icon]]. 
TungroupedSelections 


The master icon controller associated with the master icon is specified via the standard 
method defaultControllerClass. The controller, however, never permits an individual icon 
to get control because it handles all the mouse and keyboard interactions itself. 


controller 


defaultControllerClass 
TWindowMakerMasterlconController 


subViewWantingControl 


ee is handled by redButtonActivity.” 
nil 


background 


computeLabel 
“There ts no label for the master icon.” 
self label: nil 


interface window defaults 


defaultComment 
defaultPreOpeningSelector 
defaultPostClosingSelector 
defaultTitle 
defaultTopView 
.. see Sect. 8.4.7, interface Window Defaults (also see Appendix B.4)... 
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The following methods provide access to the master icon's instance variables. They are 
used by two option windows: the master sizing window and the method creation window (see 
Sect. 8.4.7, Options Processing). 


master sizing window support 


minimumSize 
TminimumSize 

minimumSize: aPoint 
minimumSize «+ aPoint 


maximumSize 
TmaximumSize 

maximumSize: aPoint 
maximumSize + aPoint 


method window support 


outputOption 
ToutputOption 
outputOption: anArray 
outputOption <— anArray 


outputOptionAt: aSymbol 
ToutputOption 
at: (#(destination encoding methodClass methodCategory 
methodName overflowCategory) indexOf: aSymbol) 


outputOptionAt: aSymbol put: anObject 
outputOption 
at: (#(destination encoding methodClass methodCategory 
methodName overflowCategory) indexOf: aSymbol) 
put: anObject 


8.4.7 Options Processing 


Options processing is simpler than mouse and keyboard processing but support for it is 
pervasive and substantial in terms of the sheer volume of code. A three-stage process is 
involved: 


1. The designer selects a menu item in the yellow button pop-up menu associated 
with the window maker icon container pane (see Fig. 8.28). The yellow button 
activity is processed by the master icon controller. See Sect. 8.4.5 for a review of 
the details. 


2. Assuming that an item associated with an options window has been selected, e.g., 
align, the view associated with this window is rctrieved from the master icon 
controller, a model is constructed that consists of a group icon containing the 
selected icons, and the view, for the alignment window in this case, is opened. 


3. The options window, in this case the alignment window, interacts with the group 
icon (its model), which in turn relays all interrogations and modifications to the 
group members. 
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Clearly, information is distributed throughout the entire system. However, some effort 
has been made to centralize as much of the information as possible. To summarize: 


1. All option window methods for generating views are centralized as class methods 
in class Window MakerMasterIconController. 


All option window models are instances of WindowMakerGrouplIcon. 
3. All pluggable messages for option windows are centralized as instance methods in 
class WindowMakerGrouplcon. 


4. Support for the pluggable messages is distributed in the appropriate icons. When 
they are generic messages, they are kept in the abstract class WindowMakerlcon. 
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Figure 8.28 Invoking the yellow button alignment options. 


We begin by considering the group icons in detail. Then we consider the individual 
option windows one by one. In each case, we will provide the following information: 


1. The yellow button selector that created the window (in class WindowMakerIcon- 
Controller). 


2. A summary of the pluggable messages and update symbols used by the 
subwindows. 


3. The methods for the pluggable messages (in class WindowMakerGrouplcon). 


The support methods for the pluggable messages (in the classes associated with 
the group icon’s members). 
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The WindowMakerGrouplicon 


The window maker group icon provides the ability to group icons on either a temporary 
basis or a permanent basis. The keyboard commands Ég and Éu, for example, create 
permanent group icons. On the other hand, group icons for options processing are always 
temporary. They may be discarded after processing without fear of side effects. 

Group icons contain instance variables for processing background and alignment 
windows. These instance variables are unused for permanent group icons. An additional 
group sequencing method is provided for handling groups known to consist of exactly one 
member (method isolatedGroupMember). This is used, for example, for processing the 
sizing and method creation options windows. 


Class WindowMakerGroupicon 


class WindowMakerGrouplcon 
superclass WindowMakerlcon 
instance variables librarianForBackground width height leftRightAlignment 


upDownAlignment horizontalAbutment verticalAbutment 
instance methods 
group sequencing 


groupDo: aBlock 
groupGet: aBlock ifUnequal: unequalBlock 
... see Sect. 8.4.2, Group Sequencing ... 


isolatedGroupMember 
| count answer | 
count & 0. 
self groupDo: [:icon | count e count+1. answer < icon]. 
count = 1 ifFalse: [self error: ‘expected isolated icon']. 
Tanswer 


Several options windows provide text subwindows for one reason or another. In each 
case, it is sufficient to provide a simple yellow button pop-up menu with menu items 
accept and cancel. Additionally, we deactivated the prompt that asks “Are you sure you 
want to close?” when some of the text subwindows have been changed but not accepted. This 
was done by redefining the default changeRequestFrom: method. 


generic window messages 
acceptCancelYellowButtonMenu 
TActionMenu 
labels: ‘accept\cancel' withCRs 
lines: #() 
solectors: #(accept cancel) 


generic window support (general) 


changeRequestFrom: aView 
true 
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generic window support (preopening/postclosing) 
... See alignment, background, make method, and interface windows ... 


alignment window messages 
alignment window suppost 
.. see alignment windows ... 


border window messages 
color window messages 
... see bordering/coloring windows ... 


background window messages 
background window support 
... see background windows ... 


master sizing windaw messages 
.. see master sizing windows ... 


method window messages 
.. see make method windows ... 


interface window messages 
.. see interface windows ... 


The Alignment Window 


Alignment is invoked by the align entry in the master controller's yellow button pop-up 
menu (the associated selector is repeated below for ease of reference). It is a facility that 
works on groups of two or morc icons (see Fig. 8.29). Hence the primary facility is centered 
in class WindowMakerGrouplIcon. On the other hand, the icons being aligned must be 
individually modified — hence, all icons must have a relevant modification protocol. This 
secondary protocol is provided in abstract class WindowMakerlcon. 


Class WindowMakerMasterlconController 


class WindowMakerMasterlconController 
superclass MouseMenuController 
instance variables 


menu messages (options windows) 


align 
self popUpWithCancel: #alignment onGroup: view selections 


Operationally, the designer selects one switch from each of the six rows in the 
alignment window and then either closes or cancels the window. A normal close causes the 
grouped icons to be operated upon by the designer's last selections. The method that actually 
performs the work is a postclosing operation called postCloseAlignment. A cancel is 
effectively a no-op. 
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Alignment 


widths: 

O unchanged O all minimum width @) all maximum width 
heights: 

O unchanged @) all minimum height O all maximum height 
left/right alignment: 


O unchanged O left sides © middles CO right sides 


up/down alignment: 


@) unchanged O tops O middles O bottoms 


horizontal abutment: 


A ERS a 


y 


AA SERS, N 


C)unchanged O touching ©) least separation most separation 


vertical abutment: 


sa a 


(@) unchanged O touching O least separation O most separation 


Figure 8.29 The alignment window. 


With so many switches, it is clear that a large number of distinct messages will have 
to be processed. For the alignment window of Fig. 8.29, the protocol is as follows: 


widths: 

how the switch determines if it should be on: 
1. groupicon isWidth: #unchanged 
2. grouplcon isWidth: #minimum 
3. groupicon isWidth: #maximum 

what the switch does if it is pressed: 
1. grouplcon makeWidth: #unchanged 
2. grouplcon makeWidth: #minimum 
3. grouplcon makeWidth: #maximum 

the update symbol to make the switch react: 

#width 
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heights: 

how the switch determines if it should be on: 
1. grouplcon isHeight: #unchanged 
2. grouplcon isHeight: #minimum 
3. grouplcon isHeight: #maximum 

what the switch does if it is pressed: 
1. groupicon makeHeight: #unchanged 
2. grouplcon makeHeight: #minimum 
3. groupicon makeHeight: #maximum 

the update symbol to make the switch react: 

#height 


left/right alignment: 
how the switch determines if it should be on: 
1. grouplcon isLeftRightAlignment: #unchanged 
2. grouplcon isLeftRightAlignment: #leftSides 
3.  grouplcon isLeftRightAlignment: #middies 
4. grouplcon isLeftRightAlignment: #rightSides 
what the switch does if it is pressed: 
1. groupicon makeLeftRightAlignment: #unchanged 
2.  grouplcon makeLeftRightAlignment: #leftSides 
3.  groupicon makeLoeftRightAlignment: #middies 
4. groupicon makeLoftRightAlignment: #rightSides 
the update symbol to make the switch react: 
#leftRightAlignment 


up/down alignment: 
how the switch determines if it should be on: 
1. grouplcon isUpDownAlignment: #unchanged 
2. grouplcon isUpDownAlignment: #tops 
3. grouplcon isUpDownAlignment: #middles 
4. grouplcon isUpDownAlignment: #bottoms 
what the switch does if it is pressed: 
1. grouplcon makeUpDownAlignment: #unchanged 
2. grouplcon makeUpDownAlignment: #tops 
3. groupicon makeUpDownAlignment: #middles 
4. groupicon makeUpDownAlignment: #bottoms 
the update symbol to make the switch react: 
#upDownAlignment 


horizontal abutment 
how the switch determines if it should be on: 
1. groupicon isHorizontalAbutment: #unchanged 
2. groupicon isHorizontalAbutment: #touching 
3. grouplcon isHorizontalAbutment: #leastSeparation 
4. groupicon isHorizontalAbutment: #mostSeparation 
what the switch does if it is pressed: 
1. groupicon makeHorizontalAbutment: #unchanged 
2. grouplcon makeHorizontalAbutment: #touching 
3. groupicon makeHorizontalAbutment: #leastSeparation 
4. groupicon makeHorizontalAbutment: #mostSeparation 
the update symbol to make the switch react: 
#horizontalAbutment 
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vertical abutment 
how the switch determines if it should be on: 
1. groupicon isVerticalAbutment: #unchanged 
2. grouplcon isVerticalAbutment: #touching 
3.  grouplcon isVerticalAbutment: #leastSeparation 
4. grouplcon isVerticalAbutment: #mostSeparation 
what the switch does if it is pressed: 
1. groupicon makeVerticalAbutment: #unchanged 
2.  groupicon makeVerticalAbutment: #touching 
3.  grouplcon makeVerticalAbutment: #leastSeparation 
4. grouplicon makeVerticalAbutment: #mostSeparation 
the update symbol to make the switch react: 
#verticalAbutment 


When a designer modifies switches in the alignment window, the mutually exclusive 
choices (one per row of switches) are recorded in corresponding instance variables in the 
group icon. These instance variables are used by the postclosing alignment operation to 


effect the final changes. 


Class WindowMakerGrouplicon 


class WindowMakerGroupicon 
superclass WindowMakerlcon 
instance variables .. width height leftRightAlignment upDownAlignment 


horizontalAbutment verticalAbutment 
instance methods 
generic window support (preopening/postclosing) 


postCloseAlignment: anExtendedStandardSystemView 


“Make the alignment specification permanent if not canceled. USED by Group.” 


anExtendedStandardSystemView controller canceled ifFalse: [ 
self adjustWidths; adjustHeights. 
self adjustLeftRightAlignment; adjustUpDownAlignment. 
self adjustHorizontalAbutment; adjustVerticalAbutment] 


alignment window messages 


isWidth: aSymbol 
Twidth == aSymbol 


makeWidth: aSymbol 
width <— aSymbol. 
self changed: #width 


isHeight: aSymbol 
Theight == aSymbol 


makeHeight: aSymbol 
height e aSymbol. 
self changed: #height 
isLeftRightAlignment: aSymbol 
TleftRightAlignment == aSymbol 
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makeLeftRightAlignment: aSymbol 
leftRightAlignment <— aSymbol. 
self changed: #leftRightAlignment 


isUpDownAlignment: aSymbol 
TupDownAlign ment == aSymbol 


makeUpDownAlignment: aSymbol 
upDownAlignment <— aSymbol. 
self changed: #upDownAlignment 


isHorizontalAbutment: aSymbo! 
ThorizontalAbutment == aSymbol 


makeHorizontalAbutment: aSymbol 
horizontalAbutment +- aSymbol. 
self changed: #horizontalAbutment 


isVerticalAbutment: aSymbol 
TverticalAbutment == aSymbol 


makeVerticalAbutment: aSymbol 
verticalAbutment <— aSymbol. 
self changed: #verticalAbutment 


Adjustment to the icons being aligned is performed sequentially in the order width, 
height, leftiright alignment, up/down alignment, horizontal abutment, and vertical abutment. 


alignment window support 


adjustWidths 
“Adjust the widths of all icons in the group - width options: unchanged, minimum, 
maximum." 
| operation newWidth | 
width == #unchanged ifTrue: {Tself]. 


operation — #(min: max:) at: (#(minimum maximum) indexOf: width). 


newWidth — subViews first displayBox width. 
subViews do: [:icon | 
newWidth + newWidth perform: operation with: icon displayBox width]. 


subViews do: [:icon | icon changeWidth: newWidth] 


adjustHeights 
“Adjust the heights of all icons in the group - height options: unchanged, minimum, 
maximum." 
| operation newHeight | 
height == #unchanged ifTrue: [Tself]. 


operation e #(min: max:) at: (A(minimum maximum) indexOf: height). 


newHeight + subViews first displayBox height. 
subViews do: [:icon | 


newHeight + newHeight perform: operation with: icon displayBox height). 


subViews do: [:icon | icon changeHeight: newHeight]. 
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adjustLoftRightAlignment 
“Adjust the left/right alignment of all icons in the group - makeLeftRightAlignment 
options: unchanged, leftSides, middles, rightSides.” 
| index operation newX maxMin | 
leftRightAlignment == #unchanged ifTrue: [Tself]. 


index + #(leftSides middles rightSides) indexOf: ieftRightAlignment. 
operation + #(origin center corner) at: index. 
maxMin e #(min: min: max:) at: index. 


newX < (subViews first displayBox perform: operation) x. 
subViews do: [:icon | 
newX < newX perform: maxMin with: (icon displayBox perform: operation) x]. 


operation — #(changeLeftSide: changeMiddleHorizontally: changeRightSide:) at: index. 
subViews do: [:icon | icon perform: operation with: newX] 


adjustUpDownAlignment 
“Adjust the up/down alignment of all icons in the group - makeUpDownAlignment 
options: unchanged, tops, middles, bottoms.” 
| index operation newY maxMin | 
upDownAlignment == #unchanged ifTrue: [Tself]. 


index + #(tops middles bottoms) indexOf: upDownAlignment. 
operation + #(origin center corner) at: index. 
maxMin é- #(min: min: max:) at: index. 


newY & (subViews first displayBox perform: operation) y. 
subViews do: [:icon | 
newY <— newY perform: maxMin with: (icon displayBox perform: operation) y]. 


operation < #(changeTop: changeMiddleVertically: changeBottom:) at: index. 
subViews do: [sicon | icon perform: operation with: newY] 


adjustHorizontalAbutment 
“Adjust the horizontal abutment of all icons in the group - horizontalAbutment 
options: unchanged, touching, leastSeparation, mostSeparation." 
| newGroup firstlcon firstRightSide secondicon secondLeftSide minimumSeparation 
maximumSeparation newLeftSide newSeparation separation | 
horizontalAbutment == #unchanged ifTrue: [Tself]. 


“First, sort horizontally.” 
newGroup < (subViews asSortedCollection: [:a :b | 
(a displayBox origin x < b displayBox origin x) or: [ 
(a displayBox origin x = b displayBox origin x) and: [ 
(a displayBox corner x <= b displayBox corner x)]]]) asArray. 


"Second, determine the minimum and maximum separations between icons." 
firsticon e newGroup at: 1. firstRightSide < firsticon displayBox corner x. 
secondicon <— newGroup at: 2. secondLeftSide + secondicon displayBox origin x. 
minimumSeparation + maximumSeparation < secondLeftSide - firstRightSide. 


(newGroup copyFrom: 3 to: newGroup size) 
inject: secondicon displayBox corner x into: [:\astRightSide :icon | 
newLeftSide < icon displayBox origin x. 
newSeparation e newLeftSide - lastRightSide. 
minimumSeparation <— minimumSeparation min: newSeparation. 
maximumSeparation +- maximumSeparation max: newSeparation. 
icon displayBox corner x]. 
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“Watch out for overlapping icons.” 
minimumSeparation e minimumSeparation max: 0. 
maximumSeparation e maximumSeparation max: 0. 


“Third, determine the separation to use.” 
separation + (Array with: 0 with: minimumSeparation with: maximumSeparation} 
at: (#{touching leastSeparation mostSeparation}) indexOf: horizontalAbutment). 


“Fourth, make the changes." 
(newGroup copyFrom: 2 to: newGroup size) 
inject: firstRightSide into: [:lastRightSide :icon | 
icon moveTo: (lastRightSide+separation)@{icon displayBox origin y). 
icon displayBox corner x) 


adjustVerticalAbutment 
“Adjust the vertical abutment of all icons in the group - verticalAbutment options: 
unchanged, touching, leastSeparation, mostSeparation." 
| newGroup firstlcon firstBottom secondicon secondTop minimumSeparation 
maximumSeparation newTop newSeparation separation | 
verticalAbutment == #unchanged ifTrue: [‘self]. 


"First, sort vertically.” 
newGroup <— (subViews asSortedCollection: [:a :b | 
(a displayBox origin y < b displayBox origin y) or: [ 
(a displayBox origin y = b displayBox origin y) and: [ 
(a displayBox corner y <= b displayBox corner y)}]]) asArray. 


"Second, determine the minimum and maximum separations between icons." 
firsticon — newGroup at: 1. firstBottom < firsticon displayBox corner y. 
secondicon <— newGroup at: 2. secondTop < secondicon displayBox origin y. 
minimumSeparation <— maximumSeparation <— secondTop - firstBottom. 


(newGroup copyFrom: 3 to: newGroup size) 
inject: secondicon displayBox corner y into: [:lastBottom ‘icon | 
newTop < icon displayBox origin y. 
newSeparation e newTop - lastBottom. 
minimumSeparation + minimumSeparation min: newSeparation. 
maximumSeparation & maximumSeparation max: newSeparation. 
icon displayBox corner y]. 


“Watch out for overlapping icons.” 
minimumSeparation +- minimumSeparation max: 0. 
maximumSeparation <— maximumSeparation max: 0. 


“Third, determine the separation to use." 
separation <— (Array with: 0 with: minimumSeparation with: maximum Separation) 
at: (#(touching leastSeparation mostSeparation) indexOf: verticalAbutment). 


“Fourth, make the changes." 
{(newGroup copyFrom: 2 to: newGroup size) 
inject: firstBottom into: [:!astBottom :icon | 
icon moveTo: (icon displayBox origin x)@(lastBottom+separation). 
icon displayBox corner y] 


The secondary alignment protocol provided in abstract class WindowMakerlIcon in- 


cludes the following operations in addition to the operations for moving and resizing dis- 
cussed in Sect. 8.4.3. 
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Class WindowMakericon 


class WindowMakerlcon 
superclass ExtendedSwitchView 
instance variables 


alignment window support 


changeWidth: aDisplayCoordinatelnteger 
self growTo: aDisplayCoordinatelnteger @ self displayBox height 


changeHeight: aDisplayCoordinatelnteger 
self growTo: self displayBox extent x @ aDisplayCoordinateinteger 


changeTop: aDisplayCoordinatelnteger 
self moveBy: 0 @ (aDisplayCoordinatelnteger - self displayBox origin y) 


changeBottom: aDisplayCoordinatelnteger 
self moveBy: 0 @ (aDisplayCoordinatelnteger - self displayBox corner y) 


changeLeftSide: aDisplayCoordinatelnteger 
self moveBy: (aDisplayCoordinatelnteger - self displayBox origin x) @ 0 


changeRightSide: aDisplayCoordinatelnteger 
self moveBy: (aDisplayCoordinatelnteger - self displayBox corner x) @ 0 


changeMiddleHorizontally: aDisplayCoordinatelnteger 
self moveBy: (aDisplayCoordinatelinteger - self displayBox center x) @ 0 


changeMiddleVertically: aDisplayCoordinatelnteger 
self moveBy: 0 @ (aDisplayCoordinateinteger - self displayBox center y) 


The Bordering and Coloring Window 


When a designer chooses the border/color entry in the master controller's yellow button 
pop-up menu (the associated selector is shown next for ease of reference), the intent is to be 
operating on the currently selected icons where group icons are viewed transparently. If no 
icon is selected, this is interpreted to mean the master icon. We don't provide a designer with 
the capability to change the border width or inside color of an individual group icon. 


Class WindowMakerMastericonController 


class WindowMakerMasterlconController 
superclass MouseMenuController 
instance variables 


menu messages (options windows) 


borderAndColor 
| selections | 
(selections — view ungroupedSelections) isEmpty 
ifTrue: [selections + Array with: view]. 
self popUpWithoutCancel: #borderingAndColoring onGroup: selections 
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The bordering and coloring window subscribes to an immediate action philosophy 
and to a display what is known philosophy. The immediate action philosophy implies that 
window changes apply immediately. Currently, there is no facility for canceling the changes. 
The display what is known facility must resolve what is to be done if, for example, the 
icons affected do not all have the same color. Our choice in such a situation is to display no 
choice at all. The window shown in Fig. 8.30 indicates that all affected icons have a gray 
color. If that were not the case, no color choice would be indicated. The philosophy also 
extends to modifications. For example, if we decide to change the width of the top border by 
changing the 1 to the right of top to 2 (and accepting the change), then the ‘1 point’ 
selection in the menu subwindow would be automatically deselected — no selection would 
be indicated since the menu subwindow indicates a border width that applies all around the 
icon (the top, left and right sides, and bottom). Likewise, selecting ‘2 point’ in the menu 
subwindow would cause all four text entries to the left to change automatically to 2. Finally, 
coloring can be achieved by selecting either one of the switches to the left of the color 
column or by selecting one of the color column members itself; i.e., there are actually two 
columns of switches — one for a check mark and another to display the actual color. 
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Figure 830 The bordering and coloring window. 
With so many text subwindows and switches, it is clear that a large number of distinct 


messages will have to be processed. For the bordering/coloring window of Fig. 8.30, the 
protocol is as follows: 
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the top, left, right, and bottom text subwindows 

how the text window determines what to display: 
1. grouplcon getTopThickness 
2. grouplcon getLeftThickness 
3. grouplcon getRightThickness 
4. grouplcon getBottomThickness 

what happens if the designer accepts a modification in the text subwindow: 
1. grouplcon changeTopThickness: aText 
2.  grouplcon changeLeftThickness: aText 
3. grouplcon changeRightThickness: aText 
4. grouplcon changeBottomThickness: aText 

what yellow button pop-up menu is associated with the text subwindow: 
1. grouplcon acceptCancelY ellowButtonMenu 

the update symbol to make the text subwindow react: 

#border 


the middle all-around border width menu subwindow: 
how the menu subwindow determines the initial menu entries: 
1. grouplcon getBordersMenuList 
how the menu subwindow determines which menu entry to select: 
1. grouplcon getBordersMenuSelection 
what happens if the designer makes a menu entry selection: 
1. grouplcon changeBordersMenuSelection: aStringOrNil 
the update symbol to make the menu subwindow react: 
#color 


the check mark and color columns 
how the check mark switch determines if it should be on: 

groupicon isInsideColer: nil “transparent” 

grouplcon islnsideColor: #white 

grouplcon isInsideColor: #veryLightGray 

grouplcon isInsideColor: #lightGray 

groupicon isinsideColor: #gray 

groupicon isInsideColor: #darkGray 

grouplcon isInsideColor: #black 

how the color column switch determines if it should be on: 
1. grouplcon isNil “always off” 

what the check mark and color column switch does if it is pressed: 
1. groupilcon makelnsideColor: nil “transparent” 

groupicon makelnsideColor: #white 

grouplicon makelnsideColor: #veryLightGray 

groupicon makelnsideColor: #lightGray 

grouplcon makeinsideColor: #gray 

grouplcon makelnsideColor: #darkGray 

grouplcon makelnsideColor: #biack 

the update symbol to make the check mark and color column switch react: 

#color 


MOTPYNS 


NONPwN 


Because this window subscribes to the immediate action philosophy and no cancel faci- 
lity is provided, there is no need to provide special instance variables in the group icon class. 
By using the group sequencing facility, it is possible to directly modify all affected icons via 
messages that already exist in abstract class WindowMakerIcon or its superclasses. 
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Class WindowMakerGroupicon 


class WindowMakerGrouplcon 
superclass WindowMakericon 
instance variables 


border window messages 


getTop Thickness 
Tself privateGetThickness: #top 
ala lla aText 
self privateChangeThickness: #top: from: aText 


getLeftThickness 
Tself privateGetThickness: #left 
at Seo erg dance aText 
self privateChangeThickness: #left: from: aText 


getRightThickness 
Tself privateGetThickness: #right 
alk Jac dco aText 
self privateChangeThickness: #right: from: aText 


getBottom Thickness 
Tself privateGetThickness: #bottom 
changeBottomThickness: aText 
self privateChangeThickness: #bottom: from: aText 


privateGetThickness: sideSymbol 
Tiself groupGet: [:icon | icon borderWidth perform: sideSymbol] ifUnequal: [T Text new) 
printString asText 


privateChangeThickness: sideSymbol from: aText 
| result | 
result — Compiler evaluate: aText. 
(result isKindOf: Integer) ifFalse: (Tfalse]. 
self groupDo: [:icon | icon borderWidth perform: sideSymbol with: result]. 
self changed: #border. 
Ttrue 


border window messages 


getBordersMenuList 
T(0 to: 8) collect: [:index | index printString, ' point'] 


getBordersMenuSelection 
| border | 
border < self groupGet: [icon | icon borderWidth] ifUnequal: [Til]. 
border = ((0@0 extent: 0@0) translateBy: border left) ifFalse: (Till. 
Thorder left printString, ' point’ 


changeBordersMenuSelection: aStringOrNil 
| border | 
aStringOrNil isNil ifTrue: {Tself]. 
border <— (aStringOrNil at: 1) digitValue. 
self groupDo: [:icon | icon borderWidth: border]. 
self changed: #border 
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color window messages 


isinsideColor: aColorSymbol 
J actualColor | 
actualColor <— aColorSymbol isNil ifTrue: [nil] ifFalse: [self decodeColor: aColorSymbol]. 
self groupDo: [:icon | (icon insideColor == actualColor) ifFalse: [Ttalsell. 
true 


makelinsideColor: aColorSymbol 
| actualColor | 
actualColor — aColorSymbol isNil ifTrue: [nil] ifFalse: [self decodeColor: aColorSymbol]. 
self groupDo: [:icon | icon insideColor: actualColor]. 
self changed: #color 


Class WindowMakericon 
class WindowMakericon 
superclass ExtendedSwitchView 


instance variables 
encoding/decoding 


decodeColor: aColorSymbol 
aColorSymbol == #nil 
ifTrue: [Înil] 
ifFalse: (TForm perform: aColorSymbol] 


The Size Options Window 


To avoid the default, a designer has to specify the minimum and maximum window sizes for 
his application window. This is done by choosing the set minimum and maximum size 
option in the master controller's yellow button pop-up menu (the associated selector is 
repeated next for ease of reference). 


Class WindowMakerMastericonController 
class WindowMakerMasterlconController 


superclass MouseMenuController 
instance variables 


menu messages (options windows) 
setSize 
"The view below is the master icon.” 
self popUpWithoutCancel: #masterSizing onGroup: (OrderedCollection with: view) 


As can be seen in Fig. 8.31, the sizes can be set by providing explicit point sizes in 
corresponding text subwindows or by clicking on a switch that causes a framing rectangle to 
appear — only the extent (not the actual position) of the rectangle is recorded. 
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Size Optians F 


minimum size n set minimum size 


maximum size | 640@456 O interactively set maximum size 


Figure 8.31 The size options window. 


In this case, the size options window protocol in class WindowMakerGrouplcon as- 


sumes that only one icon is in the group. 


the text subwindows: 

how the text subwindow determines what to display: 
1. masterlcon getMinimumSize 
2. mastericon getMaximumSize 

what happens if the designer accepts a modification in the text subwindow: 
1. masterlcon changeMinimumSize: aText 
2. masterlcon changeMaximumSize: aText 

what yellow button pop-up menu is associated with the text subwindow: 
1. masterlcon acceptCancelYellowButtonMenu 

the update symbol to make the text subwindow react: 

#sizing 


the switches: 

how the switch determines if it should be on: 
1. masterlcon isNil “always off” 

what the switch does if it is pressed: 
1. masterlcon setSize: #minimum 
2.  masterlcon setSize: #maximum 

the update symbol to make the switch react: 

nil “never reacts” 


The protocol for changing the minimum and maximum size of the application window 


is provided in class WindowMakerGrouplcon and relayed to the contained icon, the master 


icon 


. The code shown next uses the standard group sequencing protocol for modifying the 


contained icon. However, unlike previous options windows, it makes the explicit 
assumption that only one icon is contained by the group. Thus, getMinimumSize, for 
example, returns the first (and therefore only) value encountered. 
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Class WindowMakerGrouplIcon 


class WindowMakerGrouplcon 
superclass WindowMakerlcon 
instance variables 


instance methods 
master sizing window messages 


getMinimumSize 
self groupDo: [:icon | Ticon minimumSize printString asText} 
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changeMinimum Size: aText 
1 result | 
result — Compiler evaluate: aText. 
{result isKindOf: Point) ifFalse: [T false]. 
self groupDo: [:icon | icon minimumSize: result]. 
Ttrue 


getMaximumSize 
self groupDo: [:icon | Ticon maximumSize printString asText] 


changeMaximumSize: aText 
| result | 
result e Compiler evaluate: aText. 
(result isKindOF: Point) ifFalse: [T false]. 
self groupDo: [icon | icon maximumSize: result]. 
true 


setSize: aSymbol 
“aSymbol is either # minimum or #maximum." 
self groupDo: [:icon | 
icon perform: (aSymbol, 'Size:') asSymbol with: Rectangle fromUser extent]. 
self changed: #sizing 


The master icon class (see Sect. 8.4.6, The WindowMakerMasterIcon Class) provides 
the access and modification methods minimumSize, minimumSize:, maximumSize, and 
maximum Size: used above. The minimum and maximum size defaults are ‘50@ 50° and 
‘Display boundingBox extent’ respectively. 


The Background Windows 


If all selected icons are switches or pictures, the background for the icons can be specified by 
selecting the background entry in the master controller's yellow button pop-up menu. One 
of two windows will appear — either a general window, such as shown in Fig. 8.32, ora 
more restrictive window, such as shown in Fig. 8.33, if at least one of the icons is a 
combined switch/picture icon. The corresponding yellow button selectors, respectively 
background and switchAndPictureBackground, are repeated next for ease of reference. 
Both windows use models that are temporary group icons containing the nongroup members 


of the selected icons. 
Class WindowMakerMastericonController 
class WindowMakerMasterlconController 


superclass MouseMenuController 
instance variables 


menu messages (options windows) 


background 
self popUpWithoutCancel: #background onGroup: view ungroupedSelections 


switchAndPictureBackground 


self popUpWithoutCanceel: #switchAndPicture Background 
onGroup: view ungroupedSelections 
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round 


kind of switch: 


Die 


faultFormLibrary 
button 


mode parameters: 


O constant size O locked extra 
(8) unlocked 


@ varying size 


fixed point parameters: 


O top left top right 
O middle left @ center middle right 


O bottom left k bottom right 


Figure 8.32 The background window for switches and pictures with no combined 
switch/pictures. 


The specialized background window in Fig. 8.33 uses a subset of the pluggable 
protocol provided by the more general window in Fig. 8.32. We can see that Fig. 8.33 
consists of the top portion of Fig. 8.32, reorganized to provide the switch information first 
and the picture information second (the icons being affected are switch/pictures). 


A variety of distinct messages has to be processed to provide the functionality of 
Fig. 8.32. A summary is provided next. 
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kind of switch: 
the text and form switches 
how the text and form switches determine if they should be on: 
1. grouplcon isPictureVariety: #text 
2.  grouplcon isPictureVariety: #form 
what the text and form switches do if they are pressed: 
1. grouplcon changePictureVariety: #text 
2. groupicon changePictureVariety: #form 
the update symbol to make the text and form switches react: 
#pictureVariety 
the text subwindow associated with the text switch 
how the text subwindow determines what to display: 
1. grouplcon getPictureString 
what happens if the designer accepts a change in the text subwindow: 
1. groupicon changePictureString: aT ext 
what yellow button pop-up menu is associated with the text subwindow: 
1. groupicon acceptCancelYellowButtonMenu 
the update symbol to make the text and form switches react: 
nil “never reacts” 
the form library subwindow associated with the form switch 
how the form library determines what to display: 
It is an external window referencing an extended view on a librarian. 
This view is autonomous (see method subView in Sect. 8.2.3, Form Librarians) 
what happens if the designer changes the pictures in the library subwindow: 
The subwindow asks all dependents to update their #pictures. The 
grouplcon is a dependent. It reacts with its own special update: 
method. 
the update symbol to make the library subwindow react: 
External windows have no update symbols. 


mode parameters: 
the constant size and varying size switches 
how the switches determine if they should be on: 
1. grouplcon isMode: #constant 
2.  grouplcon isMode: #varying 
what the switches do if they are pressed: 
1. grouplcon changeMode: #constant 
2. grouplcon changeMode: #varying 
the update symbol to make the constant size and varying size switches react: 
#mode 
the locked and unlocked switches 
how the switches determine if they should be on: 
1. grouplcon isLocking: true 
2. grouplcon isLocking: false 
what the switches do if they are pressed: 
1. grouplcon changeLocking: true 
2. grouplcon changeLocking: false 
the update symbol to make the locked and unlocked switches react: 
#locking 
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the extra border text subwindow: 
how the text subwindow determines what te display: 
1. groupicon getLockedSizeExpansion 
what happens if the designer accepts a change in the text subwindow: 
1. grouplcon changeLockedSizeExpansion: aText 
what yellow button pop-up menu is associated with the text subwindow: 
1. grouplcon acceptCancelYellowButtonMenu 
the update symbol to make the extra border subwindow react: 
nil “never reacts” 


fixed point parameters: 
how the switches determine if they should be on: 
1. groupticon isFixedPointEncoding: #fixTopLeft 
2. grouplcon isFixedPointEncoding: #fixMiddleLeft 
3. grouplcon isFixedPointEncoding: #fixBottomLeft 
4. grouplcon isFixedPointEncoding: #fixCenter 
5. grouplcon isFixedPointEncoding: #fixTopRight 
6. grouplcon isFixedPointEncoding: #fixMiddleRight 
7. groupicon isFixedPointEncoding: #fixBottomRight 
what the switches do if they are pressed: 
1. grouplcon changeFixedPointEncoding: #fixTopLeft 
groupicon changeFixedPointEncoding: #fixMiddleLeft 
3. grouplcon changeFixedPointEncoding: #fixBottomLeft 
4. grouplcon changeFixedPointEncoding: #fixCenter 
5. grouplcon changeFixedPointEncoding: #fixTopRight 
6. grouplcon changeFixedPointEncoding: #fixMiddleRight 
7. grouplcon changeFixedPointEncoding: #fixBottomRight 
the update symbol to make the switches react: 
#fixedPoint 


Because the background window deals with switches and pictures, it is clear that the 


capability to access and modify switch and picture attributes is crucial to background win- 
dows. 


Class WindowMakerSwitchOrPicturelcon 


class WindowMakerSwitchOrPicturelcon 
superclass WindowMakerlcon 
instance variables pictureVariety pictureString pictureFormPathName lockedSizeExpan 


instance methods 


instance initialization 


initialize 
super initialize. 
pictureVariety < #text. “or #form" 
pictureString < ‘picture’. 
pictureFormPathName < #(DefaultFormLibrary button). 
lockedSizeExpansion <— 0 


access/modification 


pictureVariety 
TpictureVariety 
pictureVariety: aSymbol 
pictureVariety — aSymbol 
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Background 


switch and picture: 


switch 


blank 


picture 


table of content 


Figure 8.33 The background window if at least one of the icons is a combined 
switch/picture icon. 


access/modification (continued) 


pictureString 
TpictureString 
pictureString: aString 
pictureString + aString 


pictureFormPathName 
TpictureFormPathName 

pictureFormPathName: anArray 
pictureFormPathName < anArray 


lockedSizeExpansion 
TlockedSizeExpansion 


lockedSizeExpansion: aninteger 
lockedSizeExpansion < anInteger 


The protocol for background windows is provided by class WindowMakerGroup- 
Icon. Because of the sheer number of subwindows, this protocol is substantial. 
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Class WindowMakerGroupicon 


class WindowMakerGrouplcon 
superclass WindowMakerlcon 
instance variables librarianForBackground ... 


background window messages 


isPictureVariety: aSymbol 
self groupDo: [:icon | icon pietureVariety == aSymbol ifFalse: [Tfalse]). 
true 


changePictureVariety: aSymbol 
self groupDo: [:icon | icon pictureVariety: aSymbol; computeLabel]. 
self changed: #pictureVariety 


Like the bordering and coloring window, the background window also subscribes to the 
display what is known philosophy. If, for example, distinct icons have different picture 
strings, an empty text string is displayed. Recall also that all text windows use the generic 
yellow button pop-up menu provided by method acceptCancelYellowButtonMenu (sec 
The WindowMakerGroupl!con subsection). 


background window messages 


getPictureString 
Tiself groupGet: [:icon | icon pictureString] ifUnequal: [TText new]) asText 


changePictureString: aText 
| aString | 
aString + aText asString. 
self groupDo: [icon | icon pictureString: aString; computeLabel]. 
true 


The form library subwindow is an example of an external window. When the form 
librarian subwindow is integrated (automatically) with the background window, the model 
associated with it (if we didn't do anything special) would be the same group icon that is the 
model for all the other components of the background window. To provide it with a more 
relevant model, a form librarian, we associate a preopening method with the background 
window that (1) extracts the librarian view from the background window and (2) explicitly 
associates a new form librarian as its model. When we designed this librarian view, we 
designed it to be an extended view (as opposed to an extended standard system vicw) by 
specifying that it not be a top view in the master icon interface window and we provided it 
with the name #librarian so that we could reference it in the preopening method. 

When the designer makes selections in the form library subwindow, it is clear that 
pluggable messages will be sent to the corresponding model — in this casec, the form 
librarian. How can this result in changes to the members of the group icon? Clearly, some 
mechanism is needed to correlate the two. Our goal is the following: When the on and off 
pictures in the form library change, we want the path name for the new pictures; e.g., 
#(DefaultFormLibrary button), to be associated with the group icon members, Bul new 
pictures in the form library are displayed as a consequence (either directly or indirectly) of the 
message ‘self changed: #pictures’ sent by some part of the form library window. To get 
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the group icon to react, we make the group icon a dependent of the form librarian. Since the 
‘self changed: #pictures’ message causes all dependents, including the group icon to be 
sent an ‘update: #pictures’ message, it is sufficient to provide an update: method in the 
group icon that will retrieve the path name from the librarian. 


To review this scenario, the preopening method creates a new librarian, extracts the 
librarian view, and sets the librarian as the model for the librarian view. Additionally, it 
makes the group icon a dependent of the librarian. When the designer makes a form selection 
in the library subwindow's middle menu pane, a ‘self changed: #pictures’ message is sent 
by the librarian as a result of the selection. This causes (1) new off- and on-forms to be 
displayed, and (2) all dependents to react to an ‘update: #pictures’ message — this includes 
the group icon. The group icon explicitly asks the librarian for the path name of the selected 
pictures. If there is a selection (the path name is non-nil), the path name is associated with 
all members (subviews) of the group. This path name is used by member icons only when 
the form switch (as opposed to the text switch) is depressed. Finally, the dependent link is 
undone in the postclosing method. 


generic window support (preopening/posiclosing) 


preOpenBackground: anExtendedStandardSystemView 

“USED by Switch, Picture, and SwitchAndPicture.” 

| librarian path librarianView | 

librarian < FormLibrarian new. self tibrarianForBackground: librarian. 

librarianView e anExtendedStandardSystemView viewNamed: #librarian. 

librarianView resetModels; models: librarian. 

librarian addDependent: self. 
“handled by special update: method in WindowMakerGroup" 

path + subViews first pictureFormPathName. 

(subViews detect: [:icon | icon pictureFormPathName ~= path] ifNone: [nil]) isNil 
ifTrue: [librarian selectedPathName: path] 


postCloseBackground: anExtendedStandardSystemView 
“USED by Switch, Picture, and SwitchAndPicture.” 
self librarianForBackground removeDependent: self 


background window support 


librarianForBackground 
TibrarianForBackground 


librarianForBackground: aLibrarian 
lidbrarianForBackground e aLibrarian 


update: aSymbol 

"Provide the connection from switches and pictures to the librarian view. See 
method preOpenBackground: in WindowMakerGrouplcon." 
| path | 
aSymbol == #pictures 

ifTrue: [ 

(path < librarianForBackground selectedPathName) isNil ifFalse: [ 
subViews do: [:icon | 
icon pictureFormPathName: path; computeLabel)]] 
ifFalse: [super update: aSymbol] 
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The mode switches provide the designer with the capability to determine and specify 
whether or not the switch or picture is to be fixed-size or varying-size. This capability is 
inherited from the WindowMakerlcon's superclass — ExtendedS witch View. 


background window messages 


isMode: aSymbol 
self groupDo: [:icon | icon mode == aSymbol ifFalse: [false]. 
Ttrue 


changeMode: aSymbol 
aSymbol == #varying 

ifTrue: [ 
self groupDo: [:icon | icon sizeLocked: false; mode: #varying]. 
self changed: #mode; changed: #locking] 

ifFalse: [ 
self groupDo: [:icon | icon mode: #constant]. 
self changed: #mode] 


As might be deduced from the layout of Fig. 8.32, locking/unlocking applics only to 
constant-size icons. Consequently, clicking on the mode switch to change to a varying-size 
icon automatically unlocks the icon (if it was locked). Additionally, locking an icon 
automatically changes it to a constant-size icon. Recall (see Sect. 8.4.3, Displaying, 
Moving, and Sizing) that query and modification messages sizeLocked and sizeLocked: 
are provided in abstract class WindowMakerlcon, 


background window messages 


isLocking: aBoolean 
self groupDo: [:icon | icon sizeLocked == aBoolean ifFalse: [Tfalse]]. 
true 


changeLocking: aBoolean 
aBoolean 

ifTrue: [ 

self groupDo: [:icon | 
icon sizeLocked: true; mode: #constant; computeLabel]. 

self changed: #mode; changed: #locking] 

ifFalse: [ 
self groupDo: [:icon | icon sizeLocked: false}. 
self changed: #locking] 


When aconstant-size icon is specified by depressing the constant-size mode switch, the 
change of mode triggers a computation to determine the actual size of the icon. This size is 
computed as a function of the icon’s background; i.e., the specified string or form (the kind 
of switch information). Generally, the size is computed to contain the background 
information exactly; i.e., there is no padding. However, it is possible to provide additional 
white space around the icon by specifying an amount to be used for extra border. This 
extra border information is maintained in instance variable lockedSizeExpansion of class 
WindowMakerSwitchOrPicture (as presented previously). 
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background window messages 


getLockedSizeExpansion 
Tiself groupGet: [icon | icon lockedSizeExpansion] ifUnequal: {TText new) 
printString asText 


changeLockedSizeExpansion: aT ext 
i integer | 
integer — Number readFrom: aText asString. 
T groupDo: [icon | icon lockedSizeExpansion: integer; computeLabel]. 
true 


As discussed in the extended switch view class of Sect. 8.3.11, constant-size windows 
need a fixed point to specify which portion of the window is to serve as the anchor when the 
containing window is resized. If the fixed point is the center of an icon, for example, then 
this anchor point will move when the container window is resized. However, the icon will 
be positioned in such a way that its center is at that anchor point. Generally, the two most 
useful fixed points are the middle left and center. 


background window messages 


isFixedPointEncoding: aSymbol 
self groupDo: [:icon | icon fixedPointEncoding == aSymbol ifFalse: [Tfalse]]. 
Ttrue 


changeFixedPointEncoding: aSymbol 
self groupDo: [:icon | icon perform: aSymboll. 
self changed: #fixedPoint 


The Output (Make Method) Window 


Once the designer has finalized his application window, he can select the make method 
entry in the icon window pane’s yellow button pop-up menu to output the application 
window. An output window, as shown in Fig. 8.34, will appear. The designer can specify 
where to output the method (in the transcript, as a class method, or an instance method), 
how to output it (as an array — an encoding or a view — the encoding is incorporated to 
permit later editing). As expected, the class name, method category, and method name must 
be provided if the method is to be output either as a class or instance method. Additionally, 
an overflow category (which could be the same as the method category) must be provided in 
case the output doesn't fit in one method. None of this information is needed if only the 
encoding is to be output in the transcript. 


Once all the information is provided, the designer closes the window using the standard 
blue button pop-up menu. A cancel menu item is also provided if the designer has changed 
his mind. Note that changes made in the output options window are permanent. If the 
designer decides to output the application window a second time (perhaps because 
modifications were made), the previously provided output window information will be in the 
window when it pops up a second time. 


Chapter 8 A Window Application 459 


2 Output Options 


where to output: 


O in transcript Ce) in class method CO in instance method 


how to output: 


O encoding only @) view with encoding 


method specifics: 


class name Objec 


overflow category private overflow 


Figure 8.34 The output (make method) window. 


With only switch and text subwindows, the number of pluggable messages is 
relatively small. For the output window in Fig. 8.34, the protocol is as follows: 


where to output: 

how the switch determines if it should be on: 

1. grouplcon outputOptionAt: #destination is: #transcript 

2. grouplcon outputOptionAt: #destination is: #classMethod 

3. grouplcon outputOptionAt: #destination is: #instanceMethod 
what the switch does if it is pressed: 

1. grouplcon outputOptionPutText: #transcript at: #destination 

2.  grouplcon outputOptionPutText: #classMethod at: #destination 

3.  groupicon outputOptionPutText: #instanceMethod at: #destination 
the update symbol to make the switch react: 

#outputOption 


how to output: 

how the switch determines if it should be on: 

1. grouplcon outputOptionAt: #encoding is: #encoded 

2. grouplcon outputOptionAt: #encoding is: #notEncoded 
what the switch does if it is pressed: 

1. groupicon outputOptionPutText: #encoded at: #encoding 

2. groupicon outputOptionPutText: #notEncoded at: #encoding 
the update symbol to make the switch react: 

#outputOption 
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method specifics: 
how the text subwindow determines what to display: 
1. groupicon outputOptionTextAt: #methodClass 
2.  grouplicon outputOptionTextAt: #methodCategory 
3.  grouplcon outputOptionTextAt: #fmethodName 
4. grouplicon outputOptionTextAt: #overflowCategory 
what happens if the designer accepts a change in the text subwindow: 
1. groupicon outputOptionPutText: aText at: #methodClass 
2. grouplcon outputOptionPutText: aText at: #methodCategory 
3.  grouplcon outputOptionPutText: aText at: # methodName 
4. grouplcon outputOptionPutText: aText at: #overflowCategory 
what yellow button pop-up menu is associated with the text subwindow: 
1. grouplcon acceptCancelYellowButtonMenu 
the update symbol to make the text and form switches react: 
nil “never reacts” 


The pluggable messages are provided in class WindowMakerGroupIcon. Unlike 
previous options windows, we avoid the group sequencing operations and instead make use 
of the more restrictive isolatedGroupMember method for retrieving the one instance of the 
group icon — the master icon. 


Support methods outputOption, outputOption:, outputOptionAt:, and output- 
OptionAt:put: are provided by class WindowMakerMasterlIcon (see Sect. 8.4.6, The 
WindowMakerMasterIcon Class). 


Class WindowMakerGrouplicon 


class WindowMakerGrouplcon 
superclass WindowMakericon 
instance variables 


method window messages 


outputOptionAt: index is: aSymbol 
l icon | 
icon «~ self isolatedGroupMember. 
Tlicon outputOptionAt: index) == aSymbol 


outputOptionPutText: aText at: index 

| data icon | 

data e (index == #methodCategory) | (index == #overflowCategory) 
ifTrue: [aText asString} 
ifFalse: [aText asString asSymboll]. 

icon < self isolatedGroupMember. 

icon outputOptionAt: index put: data. 

self changed: #outputOption. 

Ttrue 


outputOptionTextAt: index 
l icon | 
icon +~ self isolatedGroupMember. 
Tlicon outputOptionAt: index) asText 
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generic window support (preopening/postclosing) 


postCloseMakeMethod: anExtendedStandardSystemView 
"Make the method if not canceled. USED by Master." 


| masterlcon className category methodName class time overflowCategory | 


"Is it canceled?" 
anExtendedStandardSystemView controller canceled ifTrue: [Tself]. 


"No, output it.” 
masterlcon + self isolatedGroupMember. 
(masterlcon outputOptionAt: #destination) == #transcript 
ifTrue: [ 
Transcript 
cr; nextPutAll: ( 

(masterlcon outputOptionAt: #encoding) == #encoded 
if True: [WindowMaker encode: masterlcon] 
ifFalse: [masterlcon asView storeString}); 

show: ''. Tself]. 


className < (masterlcon outputOptionAt: #methodClass) asSymbol. 
category <— masterlcon outputOptionAt: #methodCategory. 
methodName < (masterlcon outputOptionAt: #methodName) asSymbol. 
overflowCategory «e mastericon outputOptionAt: #overflowCategory. 
class +- Smalltalk at: className 

ifAbsent: (Tself error: ‘class ', className, ' does not exist. Proceed to cancel']. 
(masterlcon outputOptionAt: #destination) == #classMethod 

ifTrue: (class — class class]. 


Transcript tab; show: ‘Compiling Window ', methodName, °....'. 
time — WindowMakerMasterlconController timeFor: | 
(masterlcon outputOptionAt: #encoding) == #encoded 
if True: [ 
ExtendedStandardSystem View compileEncoding: masterlcon asView 
intoClass: class method: methodName category: category] 
ifFalse: [ 
masterlcon asView 
compilelntoClass: class method: methodName 
category: category overflow: overflowCategory]]. 
Transcript show:' done in ', time, '.’; er 


The Interface Window 


To specify the interface for an application subwindow, the designer sclects exactly onc 
subwindow (or none if the master window is to be specified) and chooses the external 
interface menu entry associated with the yellow button pop-up menu in the icon container 
pane. The external interface entry will not appear if two or more icons are selected. Because 
only one icon is being specified, the interface window that pops up is unique to the class of 
icon sclected. In general, the interface window permits interfacing information to be 
associated with the icon so that it will function properly when the application window is 
opened. Although the information is unique to the icon selected, the facility that provides the 
different interface window variations is placed centrally in the WindowMakerIcon abstract 
class. However, following our convention for all option windows, the pluggable messages 
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are provided in the WindowMakerGrouplcon class. Example information needed for inter- 
facing a subwindow with the application model might include 


1. A name for the subwindow if it is to be referenced while preopening or 
postclosing the window. 


2. An update symbol that enables the application model to cause the subwindow to 
update itself by having the application send itself a ‘self changed: updateSymbol’ 
message. 


In general, the interfacing protocol will depend on the kind of subwindow provided. 
For example, for text windows (see Fig. 8.35), three specific interface messages must be 
specified. 


1. The getText message; e.g., ‘model getTextFor: #address’. 


2. The changeText message; e.g., ‘model changeText: #someText for: #address’. 
3. The getMenu message; e.g., ‘model getYellowButtonMenu’. 


model changeText: #aText 


“other examples: 


model changeNameTextTo: #aText for: #manager : 
model changeVitaeTextTo: #aText for: #office version: #short 7 


comment: The change-text message is used by the text window 
give the model updated text to be recorded, This text is provided 
in the first parameter. 


when used: This message is sent to the model when the user 
accepts the text in the text window, 


Figure 8.35 The interface for text windows. 
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Similarly, for switch windows (see Fig. 8.36), two specific interface messages are 
needed. 


1. The isOn message; e.g., ‘model isSex: #male’. 
2. The switch message; e.g., ‘model changeSex: #male’. 


There are actually six distinct options windows for interface specification: one for 
master, text, menu, switch, picture, and external subwindows. In each case, the number of 
switches at the top is a function of the kind of subwindow. Consequently, it is useful to 
additionally provide each such interface window with a general description. 


1. Acomment (as shown in Fig. 8.35) that explains the special requirements for 
that kind of subwindow and provides a unifying description for the individual 
interface messages. 


When the isOn switch in the interface window of Fig. 8.36, for example, is depressed, 
switch specific information appears in the bottom pane. Typically, this information consists 
of two parts: 


1. A complete message with receiver, selector, and arguments; e.g., the message 
‘model isOn’ in this case. The fact that the selector name matches the switch 
name is a coincidence. 


2. A comment immediately below the message that explains the purpose of the 
message and special restrictions on the message (if any). 


The designer can substitute this message by one of his own choosing and select 
accept in the yellow button pop-up menu. The substitute will replace the existing message 
if all specified restrictions are satisfied and if it is syntactically legal. Otherwise, an 
appropriate error message is generated. 


Because there are more similarities than differences between the different kinds of 
interface windows, it is best to provide a common facility in an abstract class. The facility 
should satisfy several properties. 


1. It should permit an unlimited number of entries. 


2. It should permit each entry to be supplied with associated text that can be 
displayed. It would be nice if parts of the text could be in bold. 


3. It should provide a compilation capability that can take into account individual 
restrictions. 


The facility is imbedded in class WindowMakerlIcon and intended for use as follows, 
When the interface to a switch icon, for example, is to be specified, the designer selects the 
switch icon and chooses the external interface entry in the yellow button pop-up menu 
(this was discussed in detail in Sect. 8.4.5, subsection Yellow Button Activity (Pop-Up 
Option Menus)). An interface window, as shown in Fig. 8.36, is constructed (method 
interface in Sect. 8.4.5) with the switch icon as the model for each part of the window. In 
addition, the view for the text pane at the bottom is explicitly retrieved and stored in the 
model as the messageView. All parts of the window consequently communicate with the 
switch icon using the protocol provided below. Of course, this protocol is available to all 
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ow Interface 


updateSymb 


model isOn 


“other examples: 
modal isColor: #blue 
model isBorderSize: 4 


comment: The is-on message is used by the switch window to ask 
the model if the switch is on. 


when used: This message is sent to the model (1) when the switch 
window is initially displayed and (2) each time it reacts to a 
"self changed: #updateSymbol’? message sent by the model, 


Figure 8.36 The interface for switch windows. 


icons since it is provided in the abstract class WindowMakerlIcon. For the particular 
window of Fig. 8.36, the protocol is as follows: 


initialization: 
1. message is set to #comment (the default). 
2. messageView is set to the text view for the bottom pane. 


how the switches at the top determine whether or not they are on: 
switchicon isMessage: #comment 

switchlcon isMessage: #name 

switchlcon isMessage: #updateSymbol 

switchicon isMessage: #isOn 

switchicon isMessage: #switch 


what happens when a switch at the top is depressed: 
switchilcon message: #comment 

switchicon message: #name 

switchicon message: #updateSymbol 
switchicon message: #isOn 

switchicon message: #switch 


how the text pane at the bottom determines what to display: 
1. switchicon messageSeource 


what happens if we change and accept modified text in the bottom text pane: 
1.  switchlcon messageSource: aText 


what happens if we reset the bottom text pane: 
1. switchlicon resetSource 


NPN- 


FP ON 
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what happens if we accept modified text permanently in the bottom text pane: 
1. switchIlcon acceptPermanently 


The gencric facility is provided in class WindowMakerlIcon. In the presentation that 
follows, we consider only that part of the WindowMakerlcon protocol dealing with the 
external interface. Note, for example, that additional instance variables for the class are not 
divulged since they have nothing to do with the generic interface facility. In gencral, all 
icons are provided with the following instance variables: 


1. message — a symbol representing the currently selected switch in the top row of 
the interface window. 

2. messageView — the view at the bottom of the interface window, used to 
physically display the text selected by one of the switches. 

3. messagelnitializers — a dictionary indexed by message symbols; the associated 
valucs are symbols for selectors that can be performed to obtain the initial source 
to be displayed in the message view. 

4. messageSources — a dictionary indexed by message symbols; the associated 
values consist of text. Initially, this is the text provided by the message 
initializers. If modified by the designer, it consists of the modified text. 

5. messageCodings — a dictionary indexed by message symbols; the associated 
values consist of an array of objects denoting the parsed source. For example, if 
the message source for key #isOn were ‘model isSex: #male’, the corresponding 
message coding would be #(model isSex: male). 

6. messageParsers — a dictionary indexed by message symbols; the associated 
values are symbols for selectors that can be used to parse the corresponding 
message source. 


Initializing a New Icon's Interface Data 


When a new icon is constructed, all instance variables except for messageView must be 
initialized; messageView is initialized when the interface window is constructed. This 
initialization is performed by message initializeMessages (sec instance initialization 
below). In particular, four of the instance variables are initialized as dictionaries. Each of 
these dictionaries must be provided with one key-value association for each interface switch. 
The following method is used for this purpose: 


interface window support 


addMessage: nameSymbol default: defaultSymbol 

parser: parseSymbol coding: anArrayOrNil 
messageltnitializers at: nameSymbol put: defaultSymbol. 
messageSources at: nameSymbol put: (self perform: defaultSymbol). 
messageParsers at: nameSymbol put: parseSymbol. 
messageCodings at: nameSymbo! put: anArrayOrNil 


The name symbol is the key for all four dictionaries — one per interface switch. The 
default symbol is stored as a message initializer, and the text obtained by performing the 
selector is stored as a message source. The parse symbol is stored as a message parser. If this 
message parser were performed with the message source as its data, the result would be a 
coded version of the stored source. The coding parameter eliminates the need to actually parse 
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the source at initialization time. However, it is used later when and if the designer modifies 
the text in the message view and accepts it. 


Class WindowMakericon 

class WindowMakerlcon 

superclass ExtendedSwitchView 

instance variables message messageView messageinitializers messageSources 


messageCodings messageParsers ... 


instance initialization 


initializeMessages 

message < #comment. 

messagelnitializers <— IdentityDictionary new. 

messageSources < lIdentityDictionary new. 

messageCodings < IdentityDictionary new. 

messageParsers e IdentityDictionary new. 

self addMessage: #name default: #defaultName 
parser: #parseNilOrSymbol: coding: #(nil) 


interface window direct support 


message 
Tmessage 
message: aSymbol 
message <- aSymbol 
messageCodings 
TmessageCodings 
messagolnitializers 
messagelnitializers 
messageSources 
TmessageSources 


messageView 
TmessageView 

messageView: aView 
messageView e aView 


Class WindowMakerMastericon 


class WindowMakerMasterlcon 
superclass WindowMakerlcon 
instance variables 


instance initialization 


initializeMossages 
super initializeMessages. 
self 
addMessage: #comment default: #defauitComment 
parser: #parseComment: coding: nil; 
addMessage: #topView default: #defaultTopView 
parser: #parseBoolean: coding: #(true); 
addMessage: #title default: #defaultTitle 
parser: #parseNilOrString: coding: #nil}; 
addMessage: #preOpeningSelector default: #defaultPreOpeningSelector 
parser: #parseNilOrZeroOrMoreParameterMessage: coding: #(nil); 
addMessage: #postCiosingSelector default: #defaultPostClosingSelector 
parser: #parseNilOrZeroOrMoreParameterMessage: coding: #({nil) 
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Class WindowMakerTexticon 


class WindowMakerTextlcon 
superclass WindowMakerlcon 
instance variables 


instance initialization 


initializeMessages 
super initializeMessages. 
self 
addMessage: #comment default: #defaultComment 
parser: #parseComment: coding: nil; 
addMessage: #updateSymbol default: #defaultUpdateSymbol 
parser: #parseNilOrSymbol: coding: #(nil); 
addMessage: #getText default: #defaultGetText 
parser: #parseZeroOrMoreParametersMessage: 
coding: #(model getText); 
addMessage: #changeText default: #defaultChangeText 
parser: #parseOneOrMoreParametersMessage: 
coding: #(model changeText: aText); 
addMessage: #getMenu default: #defaultGetYellowMenu 
parser: #parseNilOrZeroOrMoreParameterMessage: 
coding: #(model getMenu) 


Class WindowMakerMVienulcon 


class WindowMakerMenulcon 
superclass WindowMakerlcon 
instance variables 


instance initialization 


initializeMessages 
super initializeMessages. 
self 
addMessage: #comment default: #defaultComment 
parser: #parseComment: coding: nil; 
addMessage: #updateSymbol default: #defaultUpdateSymbol 
parser: #parseNilOrSymbol: coding: #(nil); 
addMessage: #getMenuArray default: #defaultGetMenuArray 
parser: #parseZeroOrMoreParametersMessage: 
coding: #(model getMenuArray)}; 


addMessage: #getMenuSelection default: #defaultGetMenuSelection 


parser: #parseZeroOrMoreParametersMessage: 
coding: #(model getMenuSelection); 


addMessage: #changeMenuSelection default: #defaultChangeMenuSelection 


parser: #parseOQneOrMoreParametersMessage: 

coding: #(model changeMenuSelection: entryObject); 
addMessage: #getYellowMenu default: #defaultGetYellowMe 

parser: #parseNilOrZeroOrMoreParameterMessage: 

coding: #(model getYellowMenu) 


nu 
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Class WindowMakerSwitchicon 


class WindowMakerSwitchlcon 
superclass WindowMakerSwitchOrPicturelcon 
instance variables 


instance initialization 


initializeMoessages 
super initializeMessages. 
self 
addMesasage: #comment default: #defaultComment 
parser: #parseComment: coding: nil; 
addMessage: #updateSymboi default: #defaultUpdateSymbol 
parser: #parseNilOrSymbol: coding: #(nil); 
addMessage: #isOn default: #defaultisOn 
parser: #parseZeroOrMoreParametersMessage: coding: #(model isOn); 
eddMessage: #switch default: #defaultSwitch 
parser: #parseZeroOrMoreParametersMessage: coding: #(model switch) 


Class WindowMakerPicturelcon 


class WindowMakerPicturelcon 
superclass WindowMakerSwitchOrPicturelcon 
instance variables 


instance initialization 


initializeMessages 
super initializeMessages. 
self 
addMessage: #comment default: #defaultComment 
parser: #parseComment: coding: nil; 
addMessage: #updateSymbol default: #defaultUpdateSymbol 
parser: #parseNilOrSymbol: coding: #(ni)); 
addMessage: #getLabel default: #defaultGetLabel 
parser: #parseNilOrZeroOrMoreParameterMessage: coding: #(nil) 


Class WindowMakerExterallicon 


class WindowMakerExternallcon 
superclass WindowMakerlcon 
instance variables 


instance initialization 


initializeMessages 
super initializeMessages. 
self 
addMessage: #comment default: #defaultComment 
parser: #parseComment: coding: nil; 
addMessagze: #getView default: #defaultGetView 
parser: #parseClassMessage: coding: #(ExtendedView getView) 
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A few observations are noteworthy. The #comment message is treated specially — the 
coding supplied is not actually used. The #updateSymbol message permits cither a symbol 
or nil — this is reflected in the name of the corresponding parscr. Other variations arc 
possible; e.g., see #topView and #title in the master icon. Some messages like #gcetText and 
#changeText in text icons require receiver/selector/argument messages with respectively (a) 
zero or more parameters, or (b) one or more parameters. Others, like #getYellowMenu, are 
similar to #getText but additionally permit nil. 


The Interface Window Messages 


Since the bottom pane is a text view, a yellow button pop-up menu can be supplied that 
contains all the standard text editing menu items. Fig. 8.37 illustrates the existing yellow 
button menu. Note that it contains two nonstandard entries: reset and accept permanently. 
The former permits the original window contents to be retrieved even after substantial 
changes have been accepted. The latter permits the designer to refine the contents of the 
window in a permanent way — it results in the recompilation of the message initializer that 
returns the associated text object (with boldfacing included). 


Switch Window Interface 


selector must be special character or symbol ending with ":" 


model isOn 


SEO OO SSR 


AA 


RET 


“other examples: 


SAAT 


model isColor: #blue 
model isBorderSize: 4 


ESEE EEDA REE 


accept 


comment: The is-on message is used b cancel 
reset 


the model if the switch is on. 


when used: This message is sent to the model (1) when the switch 
window is initially displayed and (2) each time it reacts to a 
elf changed: #updateSymbol’ message sent by the model. 


SEP SADLY ALL ANAND ALLA ARNEL LD ERE IL DRL LIL ELL P LILI AL LENE EINES A RAEN IESE LILES 


Figure 8.37 The interface for switch windows. 
Fig. 8.37 also illustrates the result of attempting to accept an illegal message. For 


example, ‘model isOn 3° is illegal; a legal possibility would have been ‘model isOn’ or 
‘model isOn: 3’. 
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By the time the interface window is opened, all interface properties of the icon (except 
for the message view) can be accessed and modified via WindowMakerlcon methods such as 
message, message:, messageCodings, messageInitializers, messageSources, mes- 
sage View, and message View:. The message view is provided by the preopening method 
preOpeninterface: just before the interface window is opened. The message view is needed 
for generating error messages. Note that the icon for which the interface is being specified is 
extracted with message isolatedGroupMember. 


Class WindowMakerGrouplicon 


class WindowMakerGroupicon 
superclass WindowMakerlcon 
instance variables 


generic window support (preopening/postclosing) 


preOpeninterface: anExtendedStandardSystemView 
“USED by External, Menu, Picture, Switch, Text, and Master.” 
licon | 
icon & self isolatedGroupMember. 
icon messageView: 
(anExtendedStandardSystemView viewNamed: #messageSource) 


interface window messages 


messageMenu 
TActionMenu 
labels: (‘again\undo\copy\cut\paste\', 
‘accept\cancel\reset\accept permanently’) withCRs 
lines: #(2 5 8) 
selectors: #(again undo copySelection cut paste 
accept cancel resetSource acceptPermanently) 


isMessage: aSymbol 
licon | 
icon e self isolatedGroupMember. 
Ticon message == aSymbol 


message: aSymbol 
“Changes the message to aSymbol if possible; otherwise, flashes." 
| icon view t 
icon < self isolatedGroupMember. 
icon message == aSymbol ifTrue: [Tself “already as requested"]. 
(view — icon messageView) controller textHasChanged 
if True: [view flash. Tself "can't do it") 
ifFalse: [ 
icon message: aSymbol. 
self changed: #message; changed: #messageSource] 


messageSource 
l icon Í 
icon & self isolatedGroupMember. 
Ticon messageSources at: icon message) copy 
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messageSource: aText 
“Parses the given text (if possible) and creates the corresponding coded version." 
| icon iconMessage coding | 
icon < self isolatedGroupMember. iconMessage <+ icon message. 
coding <— icon parseText: aText forMessage: iconMessage. 
coding isEmpty ifTrue: [Tfalse]. 
icon messageCodings at: iconMessage put: coding. 
icon messageSources at: iconMessage put: aText copy. 
pees == defaultLabelSelector ifTrue: [icon computeLabel]. 
true 


resetSource 
| icon iconMessage aText | 
icon & self isolatedGroupMember. iconMessage e icon message. 
aText < icon perform: (icon messagelnitializers at: iconMessage). 
icon messageSources at: message put: aText. 
icon messageCodings at: message put: (icon parseText: aText forMessage: iconMessage). 
self changed: #messageSource 


acceptPermanently 
"Replace the appropriate messagelnitializer method with revised text." 
| icon iconMessage handler newText methodName containerClass methodCategory 
code | 


"First, accept the changes." 
icon & self isolatedGroupMember. iconMessage e icon message. 
(handler — icon messageView controller) textHasChanged ifTrue: [ 
handler accept. 
handler textHasChanged ifTrue: [Tself “not accepted; an error was detected"]]. 


"Next, create a method with the changes.” 

newText < icon messageSources at: iconMessage. 

methodName < icon messagelnitializers at: iconMessage. 

containerClass < icon class whichClassIncludesSelector: methodName. 
containerClass isNil ifTrue: [Tself error: 'where is method ", methodName]. 
methodCategory + containerClass whichCategoryIncludesSelector: methodName. 


“Format the text construction part of the code better than the standard storeString." 
code <— WriteStream on: (String new: 1000). 
code 
nextPutAll: methodName; ertab; 
nextPutAll: ‘T Text’; crtab: 2; 
nextPutAll: ‘string: '; store: newText string; crtab: 2; 
nextPutAll: ‘runs: (RunArray'; ertab: 3; 
nextPutAll: 'runs: '; store: newText runs runs; crtab: 3; 
nextPutAll: ‘values: '; store: newText runs values; nextPut: $). 


containerClass compile: code contents classified: methodCategory 


The standard yellow button message selectors in messageMenu are handled by the 
text window itself. It is only the two nonstandard selectors resetSource and acceptPer- 
manently that are handled by the model — this icon. The latter permits the designer to 
change the information in the message view permanently; e.g., to correct, simplify, or 
extend the information it provides. It causes the edited text to be compiled into the method 
that was originally used to retricve the text. 
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Extracting and Modifying Interface Coding 


When a message such as ‘model isColor: #black andWidth: 2’ is accepted in the interface 
window, it is parsed and stored as an array #(model isColor: #black and Width: 2) that we 
call its coding. The receiver in this case is ‘model’, the selector is ‘isColor:andWidth:’, 
and the arguments are #(black 2). As far as the encoding for the icon is concerned, the 
receiver is seldom retained since it is usually the literal symbol ‘model’. 


The protocol that follows permits different parts of this coding to be retrieved and also 
permits the defaults to be modified. This will occur, for example, when an existing 
application window is edited — to replace the default coding for the individual icons by new 
values. 


Class WindowMakericon 

class WindowMakerlcon 

superclass ExtendedSwitchView 

instance variables message messageView messagelnitializers messageSources 


messageCodings messageParsers ... 
interface window support 


codingFor: nameSymbol 
“Entire coding is returned.” 
TmessageCodings at: nameSymbol 


codingWithoutReceiverFor: nameSymbol 
“Treats situation with missing selector; i.e., #(nil), specially by returning #(nil).” 
| coding | 
{coding < messageCodings at: nameSymbol) = Hnil) if True: [Tcoding]. 
Teoding copyFrom: 2 to: coding size “eliminate receiver" 


receiverFor: nameSymbol 
“Translates constants." 
| receiver | 
receiver — (messageCodings at: nameSymbol) first. 
Tiself translateConstants: (Array with: receiver)) first 


selectorFor: nameSymbol 
“Treats situation with missing selector; i.e., #(nil) specially by returning nil.” 
1 coding result | 
(coding +- messageCodings at: nameSymbol) = #(nil) if True: [Tnill. 
result e". 
2 to: coding size by: 2 do: [:index | result <— result, (coding at: index)]. 
Tresult asSymbol 


argumentsFor: nameSymbol 
“Assumes the coding is not #(nil)." 
| coding result | 
coding <— messageCodings at: nameSymbol. result <— OrderedCollection new. 
3 to: coding size by: 2 do: [:index | result add: (coding at: index)]. 
Tself translateConstants: result asArray 
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selectorArgumentsFor: nameSymbol 
“Treats situation with missing selector; i.e., #(nil) specially by returning nil.” 
| theSelector theArguments | 
{(messageCodings at: nameSymbol) = #(nil) if True: (Till. 
theSelector e self selectorFor: nameSymbol. 
theArguments < self argumentsFor: nameSymbol. 
theArguments isEmpty 
if True: [TtheSelector] 
ifFalse: (TExtendedMessage selector: theSelector arguments: theArguments] 


receiverSelectorArgumentsFor. nameSymbol 
“Treats situation with missing selector; i.e., #(nil) specially by returning nil." 
| theReceiver theSelector theArguments | 
(messageCodings at: nameSymbol) = #(nil} if True: [Tnil]. 
theReceiver < self receiverFor: nameSymbol. 
theSelector < self selectorFor: nameSymbol. 
theArguments <- self argumentsFor: nameSymbol. 
TArray with: theReceiver with: (theArguments isEmpty 
ifTrue: [theSelector] 
ifFalse: [ExtendedMessage selector: theSelector arguments: theArguments]) 


addMessage: nameSymbol default: defaultSymbol parser: parseSymbol coding: anArrayOrNil 
messagelnitializers at: nameSymbol put: defaultSymbol. 
messageSources at: nameSymbol put: (self perform: defaultSymbol). 
messageParsers at: nameSymbol put: parseSymboi. 
messageCodings at: nameSymbol put: anArrayOrNil 


changeMessage: nameSymbol receiver: aSymbol 
“Places the symbol into an array as required for the coding.“ 
Tself changeMessage: nameSymbol coding: (Array with: aSymbol) 


changeMessage: nameSymbol selectorArguments: anArray 
“Adds ‘model’ in front of arrays other than &#(nil)." 
| coding | 


coding & anArray = #(nil) if True: [#(nil)] ifFalse: [(Array with: #model), anArray]. 
Tself changeMessage: nameSymbol coding: coding 


changeMessage: nameSymbol receiverSelectorArguments: anArray 
"Passes it on as a private message." 
Tself changeMessage: nameSymbol coding: anArray 


Parsing Interface Window Messages 


When a message is accepted by the designer in an interface window, ‘messageSource: 
aText’ is sent by the text pane to the model — the icon whose interface is being specified. 
An attempt is then made via message parseText:forMessage: to parse the text. Generally, 
the parsing process is achieved very simply by surrounding the text with ‘#( and ‘)’ and 
evaluating it. In the case of arguments, the constants nil, true, and false replace the 
symbols of the same name; e.g., #true is replaced by true. If the parse is successful, a 
nonempty array is returned. Otherwise, an error message is generated in the text pane of the 
interface window, as shown in Fig. 8.37. The compiler-generated error message is trapped 


by providing it with our own error notifier — an instance of class ErrorHandler discussed in 
Sect. 8.3.6. 


474 Inside Smalltalk 


message parsing 


parseText: aText forMessage: aSymbol 
Tself perform: (messageParsers at: aSymbol) with: aText 


perseComment: aText 
Talni!) 


parseBoolean: aText 
| anArray receiver object | 
anArray < self parseText: aText. anArray isEmpty ifTrue: [T#()]. 
(anArray = #({true)) | (anArray = #(false)) ifTrue: {TanArray). 
ai reportError: ‘expected “true” or “false”. 
#0) 


parseNilOrString: aText 
Tself parseNilOrString: aText symbolNeeded: false 


parseNilOrSymbol: aText 
Tself perseNilOrString: aText symbolNeeded: true 


parseClassMessage: alext 
| anArray receiver object | 
anArray < self parseText: aText. anArray isEmpty ifTrue: (TH#0]. 
receiver <— anArray at: 1. 
(self messageSizeOk: anArray. size: -2) ifFalse: (T#01. 
object <— Smalltalk at: receiver ifAbsent: [#()]- 
{object respondsTo: #superciass) ifFalse: [ 
oH reportError: ‘expected "', receiver printString, '" to be a class’. 
#0). 
(self messageSelectorsOk: anArray) ifFalse: (T#()]. 
TanArray 


perseNilOrZeroOrMoreParameterMessage: aT ext 
Tself parseMessage: aText nilOk: true size: -2 


parseZeroOrMoreParametersMessage: al ext 
Tself parseMessage: aText nilOk: false size: -2 


parseOneOrMoreParametersMessage: aText 
Tself parseMessage: aText nilOk: false size: -3 


unperseMessage: aSymbol 
“Converse of the parseMessage methods. Must be generalized if additional cases 
need to be handled." 
| parser coding element string | 
parser <— messageParsers at: aSymbol. coding <- messageCodings at: aSymbol. 
parser == #parseComment ifTrue: ([Tself perform: (messagelnitializers at: aSymbol)]. 
parser == #parseNilOrSymbol: if True: [Teoding at: 1) storeString asText). 
1 to: coding size do: [:index | 
element < coding at: index. 
index = 1 
ifTrue: [string — element printString] 
ifFalse: { 
index even 
ifTrue: [string <— string, ' ', element printString] 
ifFalse: [string e string, ' ', element storeString]]]. 
Tstring asText 
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private message parsing support 


parseNilOrString: aText symbolNeeded: symbolNeeded 
"Returns an array containing the text; either a symbol (name), a string, or nil for 
legal text (the former only if symbolNeeded is true); #() is returned if an error is 
reported." 
| anArray legal string | 
anArray < self parseText: aText. anArray isEmpty ifTrue: (THO. 
anArray = #(nil) ifTrue: (TanArray]. 
legal — (anArray size = 1) and: 
[symbolNeeded 
ifTrue: [ 
((string + anArray first) isKindOf: Symbol) and: [string first isLetter]] 
ifFalse: [anArray first isKindOf: String]]. 
legal if True: [TanArray]. 
self reportError: (symbolNeeded 
if True: ['expected “symbol"'] 
ifFalse: (‘expected “string”’)). 
TH) 


parseMessage: aText nilOk: nilLegal size: legalSize 
"Returns an array containing the text; either the elements of a message or nil for 
legal text (the latter only if nillegal is true}; #() is returned if an error is reported. 
The message elements have the form <receiver selector> or <receiver keyword’: 
constant1 keyword2: constant2 ...>.” 
| anArray | 
anArray + self parseText: aText. anArray isEmpty ifTrue: (T#0]. 
(nitLegal and: [anArray = #(nil)]) ifTrue: [TanArray]. 
(self messageSizeOk: anArray size: legalSize) ifFalse: [1 #()]. 
(self messageReceiverOk: anArray) ifFalse: {T#()]. 
(self messageSelectorsOk: anArray) ifFalse: [T#(]. 
TanArray 


parseText: alext 
“Returns an array containing the text objects with symbols #nil, #true, and #false 
translated to the corresponding constants. If an error is detected, a message is 
generated and an empty array is returned. Note that later processing is unable to 
differentiate between symbols like '#hello' and variables like ‘hello’ because the 
evaluation step has eliminated the distinction." 
| coding I 
coding < self evaluate: aText. 
coding isNil ifTrue: [Î#()] ifFalse: (Teoding “an Array") 


evaluate: aText 
| notifier | 
notifier — ErrorHandler new errorBlock: [:string :position | 
“Eliminate ‘#{' part of ‘#(....)°." 
self reportError: string at: position-2. 


Tnill. 


TCompiler evaluate: ‘#(', aText, '}' notifying: notifier logged: false 


reportError: aString 
self reportError: aString at: 1 


reportError: aString at: position 
messageView isNil ifTrue: [Tself "can't report it"). 
messageView controller insertAndSelect: aString at: position 
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messageReceiverOk: anArray 
(anArray at: 1) == #model 
ifTrue: [Ttrue] 
ifFalse: [self reportError: ‘expected “model”. Tralse] 


messageSelectorsOk: anArray 
| even element | 


“Special case: <receiver selector>.” 
anArray size = 2 ifTrue: [ 
{((element <— anArray at: 2) isKindOf: Symbol) and: 
{element first isLetter]) 
ifTrue: (Ttrue] 
ifFalse: [self reportError: ‘selector must be a symbol’. Tfalsel). 


“Special case: <receiver selector operand>.” 
anArray size = 3 ifTrue: [ 
(element <— anArray at: 2) isKindOf: Symbol) and: 
[element first isLetter ifTrue: [element last == $:] ifFalse: [true]}) 
ifTrue: [Ttrue] 
ifFalse: [ 
self reportError: 'selector must be special character’, 
‘or symbol ending with “:"'. 
Tfalsel]. 


“General case: <receiver keyword: operand keyword: operand ...>." 
even < false. 
anArray do: [:element | 
even ifTrue: [ 
((element isKindOf: Symbol) and: [element first isLetter]) 
ifFalse: (self reportError: ‘selector must be a symbol’. Tfalse]. 
(element last = $:) 
ifFalse: [self reportError: ‘selector must end with ":". Tfalse]). 
even + even not]. 
Ttrue 


messageSizeOk: anArray size: legalSize 
“If legalSize is positive, exactly that size is required; if negative, any size >= 
legalSize abs is permitted.” 
legalSize negative 
ifTrue: [ 
anArray size >= legalSize abs 
ifTrue: [Ttrue] 
ifFalse: [self reportError: ‘expected more parameters’. Tfalsel] 
ifFalse: [ 
anArray size = legalSize 
iffrue: {Ttrue] 
ifFalse: [ 
anArray isEmpty 
ifTrue: [self reportError: ‘expected something’. Tfalsel. 
legalSize = 2 
ifTrue: [self reportError: ‘expected "model selector". Tfalsel. 
self reportError: ‘expected “model keyword1: constant1', 
‘ keyword2: constant2 ..."'. 
Tfalse]] 
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translateConstants: anArray 

| mapi 

map < Dictionary new 
at: #nil put: nil; 
at: #true put: true; 
at: #false put: false; 
yourself. 

TanArray collect: [:element | map at: element ifAbsent: [element]] 


changeMessage: nameSymbol coding: coding 
messageCodings at: nameSymbol put: coding. 
messageSources at: nameSymbol put: (self unparseMessage: nameSymbol). 
nameSymbol == defaultLabelSelector ifTrue: [self computeLabel]. 


Interface Window Defaults 


Interface window text defaults are summarized in Appendix B.4. We provide one example 
from abstract class Window Makerlcon to illustrate the basic format of the method. Note that 
carriage returns and spaces are significant. Also, recall that the methods are not hand- 
constructed. Rather, they are obtained by editing an existing definition and compiled by 
selecting yellow button menu entry acceptPermanently. The original version of a method, 
for example, with name defaultName might have been defined as 


defaultName 
T" asText 


By editing it appropriately, it evolved into the following: 
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interface window defaults 


defaultName 
TText 
string: ' 
nil 


“other examples: 
workWindow 
top 


comment: A view name can be used to access the view when preopening or postclosing 
an extended standard system view. 


restrictions: A view name must either be nil or a symbol. 


additional information: For a more detailed explanation, see comment in the external 
interface for the master window; i.e., get the yellow button pop-up menu when no icons 
are selected and choose the external interface entry." 
runs: (RunArray 
runs: #(8 14 20 7 9 4 37 11 4 12 36 12 47 22 204) 
values: #(121212121212121)} 


defaultUpdateSymbol 
.. see Appendix B.4 ... 


defaultGetYeliowMenu 
... see Appendix B.4 ... 
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8.4.8 Encoding/Decoding, Converting to Extended 
Views, and Copying 


Each window maker icon can be encoded for ease of storage and manipulation. The 
encoding for a container icon such as a master icon or a group icon also contains the 
encoding for the contained icons. Hence, a master icon encoding is a compact representation 
for an entire application window. An encoding can of course be decoded into the 
corresponding icon. The icon itself can then be converted into a corresponding extended view. 
In general, the encoding contains more information than the corresponding extended view. 
Hence it is not possible to go back the other way. For this reason, the encoding is 
maintained with extended standard system views and extended views (although not with other 
views). Once a method is generated to produce an application window from extended views, 
it is possible to discard the encoding. However, it is needed if the window is to be edited for 
changes in the future. 

An encoding is an appropriately initialized array of constants. It cannot, for example, 
contain store strings or objects such as rectangles or points. A point like 10@20 has to be 
encoded in the array either as a subarray (10 20) or as two consecutive integers 10 and 20. 
Decoding in this case is a matter of extracting this information and reconstructing the point. 
There is nothing particularly illuminating about the encoding/decoding process. Although 
the gist of the encoding/decoding methods for abstract class Windowmakerlcon is provided 
next, the details of the code for this class and the subclasses have been gathered in 
Appendix B.5. The encoding/decoding facility is an example of a horizontal facility since 
every class in the WindowMakerlcon hierarchy is affected. 


Class WindowMakericon 
class WindowMakerlcon 
superclass ExtendedSwitchView 


instance variables 


instance methods 
encoding/decoding 


encodeOn: aStream 

“iconClass iconName window insideColor borderWidth* 

aStream 
nextPutAll: self shortClassName; space; 
store: (self receiverFor: #name); space. self 
encodeWindowOn: aStream. aStream space. self 
encodeColor: insideColor on: aStream. aStream space. self 
encodeBorderWidthOn: aStream 


decodeFrom: aStream 

"iconClass iconName window insideColor borderWidth” 

| border | 

self 
changeMessage: #name receiver: aStream next; 
window: (self decodeWindow: aStream next); 
insideColor: (seif decodeColor: aStream next); 
borderWidthLeft: (border — self decodeBorderWidth: aStream next) left 

right: border right top: border top bottom: border bottom 
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encodeWindow0On: aStream 
aStream print: (Array 
with: window origin x with: window origin y 
with: window corner x with: window corner y). 


encodeColor: aPoint on: aStream 
encodeBorderWidthOn: aStream 
... see Appendix B.5 ... 


decodeWindow: anArray 
“decode #(<origin x> <origin y> <corner x> <corner y>)" 
TanArray at: 1)@(anArray at: 2) corner: (anArray at: 3)@(anArray at: 4) 


decodeColor: aColorSymbol 
decodeBorderWidth: data 
.. see Appendix B:5 ... 


Another horizontal facility permits icons to be copied and converted to extended views. 
A shallow copy is needed to support the copy/paste facility in the window maker. The 
conversion operation provides an approach to generating an application window; e.g., by 
converting all icons to extended views and then obtaining the corresponding store strings. As 
for the encoding/decoding facility, the copying and conversion methods have been gathered in 
Appendix B.6. 

We provide two examples from the abstract class Window MakerIcon and its subclass 
WindowMakerExternallcon. The shallow copy operation makes a temporary destructive 
modification to the receiver. Such destructive changes could be avoided by providing 
additional supporting methods. 


Class WindowMakericon 

class WindowMakerlcon 

superclass ExtendedSwitchView 

instance variables ... Messagelnitializers messageSources messageCodings 
messageParsers ... 


generating views 


asView 
self subclassResponsibility 


copying 


shallowCopy 
| copy oldMessagelnitializers oldMessageSources oldMessageCodings 
oldMessageParsers | 


“Modify temporarily“ 

oldMessagelnitializers <— messagelnitializers. 
messagelnitializers — messagelnitializers copy. 
oldMessageSources <- messageSources. 
messageSources <- messageSources copy. 
oldMessageCodings + messageCodings. 
messageCodings <— messageCodings copy. 
oldMessageParsers e messageParsers. 
messageParsers <- messageParsers copy. 
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“Make the copy.” 
copy < super shallowCopy 
superView: nil; resetSubViews; 
borderWidthLeft: borderWidth left right: borderWidth right 
top: borderWidth top bottom: borderWidth bottom; 
transformation: transformation; “stores a copy" 
window: window; "stores a copy" 
yourself. 
subViews do: [:icon | copy addSubView: icon shallowCopy]. 


"Restore." 

messagelnitializers <- oldMessagelnitializers. 
messageSources <— oldMessageSources. 
messageCodings < oldMessageCodings. 
messageParsers +— oldMessageParsers. 


Teopy 


Class WindowMakerExtemallicon 


class WindowMakerExternalicon 
superclass WindowMakerlcon 
instance variables “none” 


generating views 
asView 
TExtendedExternalView new 
model: nil; name: (self receiverFor: #name); 
insideColor: jnsideColor; 
borderWidthLoft: borderWidth left right: borderWidth right 
top: borderWidth top bottom: borderWidth bottom; 

window: window; transformation: transformation; 
external: (self receiverSelectorArgumentsFor: #getView); 
yourself 


8.4.9 The Remaining Icons 


Since we have provided bits and pieces of most icon classes while describing the important 
functions of the window maker, the parts of the classes that have yet to be discussed are 
relatively short. In this section, we present the remaining classes with appropriate references 
to the parts that were presented elsewhere. 


Class WindowMakerlcon (An Abstract Class) 


class WindowMakerlcon 
superclass ExtendedSwitchView 
instance variables message messageView messagelnitializers messageSources 


messageCodings messageParsers sizeLocked 
defaultLabelSelector 


class methods 
instance creation 


new 
Tsuper new computeLabel 
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instance methods 
instance initialization 


initializeMessages 

.. see Sect. 8.4.7, Initializing a New Icon's Interface Data ... 
initialize 

“Initializes all components of the icon." 

I box | 

super initialize. 

self mode: #varying. 

box «< 0@0 extent: 50@50. 

self window: box viewport: box. "=> transformation is identity" 

sizeLocked < false. 

self borderWidth: 1; insideColor: Form white. 

defaultLabelSelector < #subclassResponsibility. 

self initializeMessages 


encoding/decading 
.. See Sect. 8.4.8, Encoding/Decoding ... (also see Appendix B.5) ... 


generating views 
asView 
self subclassResponsibility 


group sequencing 
.. see Sect. 8.4.2 , Group Sequencing ... 


copying 
.. see Sect. 8.4.8, ... Converting ..., and Copying (also see Appendix B.6) ... 


size locking 
.. see Sect. 8.4.3, Displaying, Moving, and Sizing ... 


default naming 


classNamePicture 
Tself shortClassName asLowercase asParagraph 


shortClassName 
| className | 
className < self class name. “WindowMaker...!con" 
TclassName copyFrom: 12 to: className size - 4 “the ... portion” 


moving/growing primitives 
moving/growing nonprimitives 
displaying 
.. see Sect. 8.4.3, Displaying, Moving, and Sizing ... 


alignment window support 
.. see Sect. 8.4.7, The Alignment Window ... 


interface window direct support 
interface window general support 
... see Sect. 8.4.7, The Interface Window ... 


interface window defaults 
.. see Sect. 8.4.7, interface Window Defaults (also see Appendix 8.4) ... 


message parsing 
private message parsing support 
. see Sect. 8.4.7, The Interface Window ... 
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Class WindowMakerTexticon 


class WindowMakerTextlcon 
superclass WindowMakerlcon 
instance variables "none" 


class methods 

no messages 
instance methods 
instance initialization 


initializeMessages 

... See Sect. 8.4.7, Initializing a New Icon's Interface Data ... 
initialize 

super initialize. 

defaultLabelSelector — #getText 


encoding/decoding 
... see Sect. 8.4.8, Encoding/Decoding ... (also see Appendix B.5) ... 


generating views 
... see Sect. 8.4.8, ... Converting to Extended Views, and ... (also see Appendix B.6) ... 


interface window defaults 


defaultComment 
defaultGetToxt 
defaultChangeText 
... see Sect. 8.4.7, Interface Window Defaults (also see Appendix B.4) ... 


Class WindowMakerMenulcon 


class WindowMakerMenulcon 
superclass WindowMakerlcon 
instance variables “none” 


class methods 

no messages 
instance methods 
instance initialization 


initializeMessages 

... see Sect. 8.4.7, Initializing a New Icon's Interface Data ... 
initialize 

super initialize. 

defaultLabelSelector — #getMenuArray 


encoding/decoding 
.. see Sect. 8.4.8, Encoding/Decoding ... (also see Appendix B.5) ... 


generating views 
.. see Sect. 8.4.8, ... Converting to Extended Views, ... (also see Appendix B.6) ... 
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interface window defaults 


defaultComment 
defaultGetMenuArray 
defaultGetMenuSelection 
defaultChangeMenuSelection 
.. see Sect. 8.4.7, Interface Window Defaults (also see Appendix B.4) ... 


Class WindowMakerSwitchOrPicturelcon 


class WindowMakerSwitchOrPicturelcon 
superclass WindowMakerlcon 
instance variables pictureVariety pictureString pictureFormPathName 


lockedSizeExpansion 
class methods 
no messages 
instance methods 
instance initialization 
initialize 
super initialize. 
pictureVariety <— #text. 
pictureString < ‘picture’. 
pictureFormPathName < #(DefaultFormLibrary button). 


lockedSizeExpansion <— 0 


access/modification 
.. see Sect. 8.4.7, The Background Windows ... 


encoding/decoding 
.. see Sect. 8.4.8, Encoding/Decoding ... (also see Appendix B.5) ... 


background 
.. see Sect. 8.4.4, Labeling the Icons ... 


Class WindowMakerSwitchicon 


class WindowMakerSwitchlcon 
superclass WindowMakerSwitchOrPicturelcon 
instance variables "none" 


class methods 

no messages 
instance methods 
instance initialization 


initializeMessages 
.. see Sect. 8.4.7, Initializing a New tcon's Interface Data ... 
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initialize 
super initialize. 
pictureString <— ‘switch’. “override default" 


encoding/decoding 
... see Sect. 8.4.8, Encoding/Decoding ... (also see Appendix B.5) ... 


generating views 
.. see Sect. 8.4.8, ... Converting to Extended Views, ... (also see Appendix B.6) ... 


interface window defaults 


defaultComment 
defaultlsOn 
defaultSwitch 
.. see Sect. 8.4.7, Interface Window Defaults (also see Appendix B.A) ... 


background 
... see Sect. 8.4.4, Labeling the Icons ... 


Class WindowMakerPicturelcon 


class WindowMakerPicturelcon 
superclass WindowMakerSwitchOrPicturelcon 
instance variables “none” 


class methods 

no messages 
instance methods 
instance initialization 


initializeMessages 
.. see Sect. 8.4.7, Initializing a New tcon's Interface Data ... 


initialize 
super initialize. 
self sizeLocked: true; mode: #constant; fixMiddleLeft; lockedSizeExpansion: 0. 
self borderWidth: 0. “override” 


encoding/decoding 
.. see Sect. 8.4.8, Encoding/Decoding ... (also see Appendix B.5) ... 


generating views 
... see Sect. 8.4.8, ... Converting to Extended Views, ... (also see Appendix B.6) ... 


interface window defaults 


defaultComment 
defaultGetLabel 
1. see Sect. 8.4.7, Interface Window Defaults (also see Appendix B.4) ... 
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Class WindowMakerSwitchAndPicturelcon 


class WindowMakerSwitchAndPicturelcon 
superclass WindowMakerSwitchlcon 
instance variables separation 


class methods 

no messages 

instance methods 

instance initialization 

initialize 
super initialize. 
self borderWidth: 0. “override” 
separation + 10. 


self sizeLocked: true; mode: #constant; fixMiddleLeft; lockedSizeExpansion: 0. 
pictureVariety e #form 


encoding/decoding 
.. see Sect. 8.4.8, Encoding/Decoding ... (also see Appendix B.5) ... 


generating views 
... see Sect. 8.4.8, ... Converting to Extended Views, ... (also see Appendix B.6) ... 


background 
... see Sect. 8.4.4, Labeling the Icons ... 


Class WindowMakerExternallicon 


class WindowMakerExternallcon 
superclass WindowMakerlcon 
instance variables “none” 


class methods 

no messages 
instance methods 
instance initialization 


initializeMessages 

.. see Sect. 8.4.7, Initializing a New Icon's Interface Data ... 
initialize 

super initialize. 

defaultLabelSelector — #getView 


encoding/decoding 
.. see Sect. 8.4.8, Encoding/Decoding ... (also see Appendix B.5) ... 


generating views 
... see Sect. 8.4.8, ... Converting to Extended Views, ... (also see Appendix B.6) ... 
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interface window defaults 


defaultComment 
defaultGetView 
.. see Sect. 8.4.7, Interface Window Defaults (also see Appendix B.4) ... 


8.5 CONCLUSIONS 


Generally, the window maker was substantially more complex than we had expected it to be. 
The browser was a good vehicle to study it in a relatively effortless way. However, it was 
virtually impossible to obtain a linear listing that could easily be followed. In fact, we found 
it as difficult to describe our design as it was to produce it. 


Two areas that warrant further work have to do with form libraries and the canceling 
protocol. In particular, our form library design was sufficient to manage switch forms. As it 
is, each form library consists of small forms that are all the same size. We haven't considered 
what would happen if the forms were to be different sizes. Additionally, it is not clear how 
more general forms for pictures should be handled. For example, how should we display a 
large form in the window maker's background window or a library editor? With respect to the 
canceling protocol, it is unsatisfying to terminate options processing by closing the 
window. In an earlier design, we had introduced two switches in alignment windows: an OK 
switch and a CANCEL switch. This worked well for alignment processing. However, we 
have not provided a cancel facility for all options windows — perhaps we should. More 
important, we had great difficulty in finding a suitable layout that could incorporate these 
two switches. Although it was fine for the alignment window, we could find no nice place to 
put it in an interface window. 


8.6 SUMMARY 


This chapter has provided the design and implementation of an extensive window 
application — the window maker for constructing application windows. In particular, we 
have discussed the following notions: 


e A simple extension of forms called forms with highlight that carry a secondary 
form to replace it when it is considered on. The original is the off version. 


e The design of form libraries for the storage of small forms. 


The design and implementation of a form librarian to permit users to create, edit, 
and store small forms. It also serves as an extensive example of the use of the 
window maker, 


The design of extended views that permit (1) referencing by name, (2) 
preprocessing when a window is opened and postprocessing when it is closed, (3) 
an arbitrary number of constant parameters, (4) special capabilities such as 
switches with constant-size forms, dynamic pictures, and external reference 
windows, (5) a method for computing the display transformation that eliminates 
the imprecision built in to standard windows, and (6) infinite loop protection for 
the change/update protocol. 
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¢ The detailed protocol for classes ExtendedStandardS ystemView, ExtendedView, 
ExtendedMenu View, ExtendedTextView, ExtendedS witch View, ExtendedPicture- 
View, ExtendedS witchAndPictureView, and ExtendedExternal View. 


¢ The design of the window maker including the parts hierarchy, the view hierarchy, 
and the controller hierarchy. 


e Details about the window maker; specifically, (1) group sequencing, (2) view 
displaying, moving, and sizing, (3) labeling the icons, (4) the master icon 
controller, (5) the master icon view, (6) compressing and decompressing views, 
(7) options windows, (8) encoding/decoding, conversion to extended views, and 
copying, and (9) the remaining icons (everything that wasn't discussed pre- 
viously). 


è Details about specific options windows including the alignment, bordering AndCo- 
loring, background, switchAndPictureBackground, masterSizing, makeMethod, 
master, text, menu, switch, picture, and external options window. 


8.7 EXERCISES 


The following exercises are designed to test your knowledge of windows, models, views, and 
controllers by suggesting possible extensions to the window maker application. 


Change the design for a highlight 
form so that it keeps track of a state 
that determines whether or not to 
display itself on or off. 


to be positioned more exactly using 
window:viewport: instead of add- 
SubView:in: border Width:. 


7. Gain experience with the window 
Change the form library maker (if you've managed to file in 
implementation so that it inherits the code) by bootstrapping the editor 
from dictionary. window. 
Add a storeOn: method to form 8. Extend the option windows so that 
libraries so that they can better store they can all be canceled. Make sure 
themselves. that canceling has the same effect as 

undo. 

Extend the editing facilities of the 
form librarian so that a form editor 9. Design a better alternative to final- 
appears instead of a bit editor if the izing options processing. Currently, 
form is too large. it is finalized by closing the window. 
Change the model-view-controller re- 10. Add another yellow button pop-up 
lationships for the window maker menu entry to the icon container 
window by eliminating the window pane that permits stubs to be gene- 
maker model (aWindowMaker in tated for the pluggable interface 
Fig. 8.4). Hint: See how it is bypas- messages. 
sed by the zooming switches. 11. Design an alternative interface win- 


Eliminate the existing window maker 
bordering inaccuracies by changing 
method privateEditorOn: in class 
WindowMaker to use extended views. 
Note: To gain the benefits of 
extended views, subviews may have 


dow that permits the interfacing 
information to be displayed together 
for all icons at once. This would 
provide a better overview of the 
pluggable protocol. 
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classes 


ContinuousSwitchController An extension 
of class SwitchController that keeps 
sending the message associated with the 
switch as long as it maintains control; 
i.e., as long as the mouse is depressed in 
the switch view. 


ErrorHandler An error notifier serving as a 
parameter to the compiler. It gets control 
when an error is encountered. Can be used 
to support an editor that needs to display 
the error message in one of its panes. 


ExtendedExternalView A class that provides 
an indirect reference to an extended view. 
It is provided mainly to support external 
windows constructed by the window maker. 


ExtendedMenuView An extension of plug- 
gable class SelectionInListView pro- 
viding (1) extended messages as pluggable 
selectors, (2) infinite loop protection so 
that ‘self changed: #updateSymbol’ mes- 
sages by the model will not result in an 
infinite loop when an update is in pro- 
gress, and (3) a controller that permits 
empty menus to gain control (this is not 
permitted by class SelectionInList- 
View). 


ExtendedMessage An extension of class 
Message with a few additional methods 
to simplify its use. 


ExtendedPictureView An extension of class 
ExtendedSwitchView that provides (1) 
both static pictures (the usual kind), and 
(2) dynamic pictures; i.e., pictures that 
can be changed any time the model de- 
cides. When the model wants a new picture 
displayed, it simply sends a ‘self 
changed: #updateSymbol’ message; #up- 
dateSymbol is the update symbol for the 
extended picture view. 


ExtendedStandardSystemView An exten- 
sion of class StandardSystemView 
providing (1) preprocessing by the model 
before the view (window) is opened and 
postprocessing after it is closed, (2) 
printing support for the other extended 
views, (3) compilation support for class 
ExtendedView, and (4) support to maintain 
and extract a window encoding. 
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ExtendedSwitchAndPictureView An exten- 
sion of class ExtendedSwitchView that 
simultaneously provides both an extended 
switch view and a picture view with a 
specifiable separation between the two. 


ExtendedSwitchView An extension of class 
SwitchView that provides (1) fixed- and 
varying-size labels, (2) extended messages 
as pluggable selectors, (3) infinite loop 
protection so that ‘self changed: #up- 
dateSymbol’ messages by the model will 
not result in an infinite loop when an up- 
date is in progress, (4) an explicit in- 
stance variable (aspect) for keeping track 
of the update symbol, permitting it to be 
different from the isOn message, (5) 
knowledge about highlight forms and the 
librarian so that switches may be specified 
via library path names; i.e., library name 
and form name pairs, and (6) the ability to 
have on and off representations that are 
different (replacement style) as opposed 
to merged (overlay style). 


ExtendedTextView An extension of plug- 
gable class TextView providing (1) ex- 
tended messages as pluggable selectors, 
(2) infinite loop protection so that ‘self 
changed: #updateSymbol’ messages by 
the model will not result in an infinite 
loop when an update is in progress, and 
(3) an explicit instance variable (aspect) 
for keeping track of the update symbol 
permitting it to be different from the 
getText message. 


ExtendedView An extension of class View 
that is similar to class ExtendedStan- 
dardSystem View but lacking the pre- 
opening and postclosing facility. 


FormLibrarian A model for an editor that 
permits form libraries to be constructed, 
changed, and extended. 


FormLibrary A named dictionary of forms. 
Permits the retrieval and storage of forms 
(and/or forms with highlight) by name; 
i.e., the key-value pairs are name-form 
pairs. One instance, DefaultFormLibra- 
ry, contains three forms with highlight 
indexed by the symbols #blank, #button, 
#check. 


FormWithHighlight A class of forms that 
has two display images — one when it is 
off and another when it is on. The form 
itself provides the off image; its high- 
light provides the on image. 


WindowMaker An extension of class Ob- 
ject that provides (1) an interface for a 
designer who wishes to construct or edit 
an application specific window, and (2) a 
model for this editor. 


WindowMakerControllerWithCancel An ex- 
tension of class StandardSystemCon- 
troller for use by window maker options 
windows, It provides two facilities: (1) a 
close facility that causes the window 
maker's master controller to regain control 
no matter what window had previous 
control and (2) a cancel facility that works 
like the close facility but additionally 
records the fact that it was canceled so that 
it can be interrogated by a postclosing 
operation. 


WindowMakerExternalicon An extension of 
class WindowMakerlIcon that provides 
the external icon protocol. 


WindowMakerGroupIcon An extension of 
class WindowMakerlcon that provides 
the grouping protocol. It permits collec- 
tions of icons to be grouped either tempo- 
rarily or permanently. Once grouped, such 
collections can be manipulated as indi- 
vidual icons. 


WindowMakerlcon An abstract class for all 
window maker icons. An extension of 
class ExtendedSwitchView that pro- 
vides the common functionality for all 
icons. 


WindowMakerMasterIcon An extension of 
class WindowMakerlcon for keeping 
track of the currently selected icons, the 
minimum and maximum sizes for the 
application window, and a set of output 
options that specifies how the application 
window is to be generated; e.g., in the 
transcript, as a class method, or as an 
instance method. In the last two cases, 
additional information must also be pro- 
vided; i.e., the class name, method name, 
category name, and overflow category 
name (in case more than one method is 
needed to generate the application win- 
dow). 
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WindowMakerMasterIconController An ex- 
tension of class MouseMenuControl- 
ler that provides (1) a copy buffer to 
permit icons (rather than characters) to be 
copied, cut, pasted, and deleted, (2) both 
menu and keyboard processing for the 
above in addition to a facility to permit 
grouping and ungrouping of icons, (3) a 
facility to keep track of the currently ac- 
tive pop-up options window, (4) a rather 
complex yellow button menu that is con- 
structed dynamically to take into account 
the currently selected icons, (5) mouse 
controlled icon selection, deselection, 
moving, and size adjusting, and (6) a 
repository for the pop-up options windows 
— the window maker is bootstrapped. 


WindowMakerMenulcon An extension of 
class WindowMakerIcon that provides 
the menu icon protocol. 


WindowMakerPicturelcon An extension of 
class WindowMakerSwitchOrPicture- 
Icon that provides the picture icon pro- 
tocol. 


WindowMakerSwitchAndIconIcon An ex- 
tension of class WindowMakerSwitch- 
Icon that provides the protocol for the 
combined switch and picture icons. 


WindowMakerSwitchIcon An extension of 
class WindowMakerSwitchOrPicture- 
Icon that provides the switch icon pro- 
tocol. 


WindowMakerSwitchOrPictureIcon An ex- 
tension of class WindowMakerlcon 
that provides common access/modifica- 
tion, encoding/decoding, and background 
protocol for the switch and picture sub- 
classes. 


WindowMakerTextIcon An extension of 
class WindowMakerlIcon that provides 
the text icon protocol. 
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selected terminology 


blank One of the three switch forms in the 
default form library (also see button and 
check). 


button One of the three switch forms in the 
default form library (also see blank and 
check). 


check One of the three switch forms in the 
default form library (also see blank and 
button). 


compressed The status of a window maker's 
option window when the construction 
method generates an encoding (as opposed 
to a view). 


constant-size An extended switch views mode 
where the switch labels don't scale. Such 
views stay the same size when a 
containing view is resized. An example of 
an object that scales is a form; an example 
of one that doesn't is a string converted to 
a paragraph or a display text. 

decompressed The status of a window 
maker's option window when the 
construction method generates a view (as 
opposed to an encoding). 


encoding An appropriately initialized array 
of constants that is a compact representa- 
tion for an icon. The encoding for a con- 
tainer icon such as a master icon or a 
group icon also contains the encoding for 
the contained icons. Hence, a master icon 
encoding is a compact representation for 
an entire application window. In general, 
an encoding contains more information 
than a corresponding extended view. For 
this reason, the encoding is maintained 
with extended standard system views and 
extended views (though not with other 
views). Once a method is generated to pro- 
duce an application window from extended 
views, it is possible to discard the en- 
coding. However, it is needed if the win- 
dow is to be edited for changes in the fu- 
ture. 


extended view An extension of pluggable 
windows that provides (1) a name, (2) a 
preprocessing and postprocessing facility, 
(3) view messages with an arbitrary num- 
ber of constant parameters, (4) a method 
for computing the display transformation 
that eliminates the built-in imprecision 
(see Fig. 3.7 in Sect. 3.3.1 or Sect. 
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8.3.2), and (5) infinite loop protection for 
the change/update protocol. It also pro- 
vides switch views with constant-size 
forms, dynamic picture views, and external 
reference views. 


fixed point Constant-size windows need a 
fixed point to specify which portion of 
the window is to serve as the anchor when 
the containing window is resized. If the 
fixed point is the center of an icon, for 
example, then this anchor point will move 
when the container window is resized. 
However, the icon will be positioned in 
such a way that its center is at that anchor 
point. Generally, the two most useful fixed 
points are the middle left and center. 
Seven different fixed point specifications 
are permitted; namely, top left, middle 
left, bottom left, center, top right, middle 
right, and bottom right. 


form librarian A tool for creating, editing, 
and storing libraries of forms. 


form library A dictionary of forms with a 
name. 


forms with highlight A class of forms that has 
two display images — one when it is off 
and another when it is on. The form itself 
provides the off image; its highlight 
provides the on image. 


group icon A window maker icon that permits 
sets of icons to be manipulated as 
individual icons either on a temporary or 
permanent basis. 


group sequencing facility A protocol that 
permits nongroup icons to be processed 
transparently independent of how deeply 
nested the icons are in a group. 


grow box An 8@8 rectangle at the bottom 
right corner of a window maker icon. 


highlight The on image (as opposed to off 
image) for a form with highlight. 


icon background The textual name or form 
that is displayed in the icon's display box. 


icon container pane The bottom pane of the 
window maker editor that serves as the 
repository for newly created subwindows 
— window maker icons. 


icon dehighlighting Reversing the bits of an 
icon's inset display box a second time. 
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icon highlighting Reversing the bits of an 
icon's inset display box. 


icon locking Ensures that the icon's size 
remains constant; i.e., deactivates the 
grow box. This is permitted only on 
constant-size switch icons. 


interface window An option window that 
permits interfacing information (pluggable 
messages) to be associated with the icon 
(subwindow) so that it will function 
properly when the application window is 
opened. 


interface window defaults Text strings 
provided by default methods for display in 
the interface option window. These default 
strings are specific to each class of icon 
provided by the window maker. 


lasso-selection facility A facility that pro- 
vides an alternative approach to selecting 
a set of icons. Depressing the mouse over 
an open area and moving it cause a 
rectangle to appear and track the mouse 
(the lasso). When the button is released, 
all icons touching the rectangle are 
selected. The shift-clicking facility can 
then be used to add or remove specific 
icons. 


master icon The container for all newly 
created icons in the window maker editor. 


mode One of two possibilities provided by 
extended switch views; i.e., constant- 
size mode and varying-size mode. 


option window The scheduled window that 
pops up as a result of a yellow button 
pop-up menu selection in the window 
maker's icon container pane. There are 
twelve option windows: an alignment 
window, a borderingAndColoring window, 
a background window, a switchAndPicture- 
Background window, a masterSizing win- 
dow, a makeMethod window, a master in- 
terface window, a text interface window, a 
menu interface window, a switch interface 
window, a picture interface window, and an 
external interface window. 


important facts 


revised transformation display algorithm An 
accurate algorithm for computing a 
window's display transformation. It 


overlay option An extended switch view 
option that specifies whether or not the 
highlight object (when provided) is to be 
displayed over the label as opposed to 
replacing it when the switch is depres- 
sed (the default is to replace). 


replace option An extended switch view 
option that specifies whether or not the 
highlight object (when provided) is to 
replace the label as opposed to being 
displayed over the label when the switch 
is depressed (the default is to replace). 


shift-clicking facility A facility that permits 
icons to be added or removed from the set 
of selected icons by pressing the mouse 
button over it while the shift key is down. 
Shift-clicking over a previously unselected 
icon selects it; shift-clicking over a 
selected icon deselects it. 


varying-size An extended switch view mode 
where the switch labels can scale or where 
they can't scale and yet must be displayed 
in a varying-size area. Such views change 
size when a containing view is resized — 
the label changes size only if it can. An 
example of an object that scales is a form; 
an example of one that doesn't is a string 
converted to a paragraph or a display text. 


window maker A tool for use by relatively 
experienced programmers who understand 
the notion of pluggable views to simplify 
the task of designing application specific 
windows. It provides the designer with the 
capability to (1) create text, menu, switch, 
picture, and external subwindows, (2) 
specify their interfaces, and (3) provide a 
suitable layout (resizing, bordering, color- 
ing, moving, and aligning). 

window maker icon A subwindow in the icon 
container pane. 


zoom switches Switches at the top right 
corner of the window maker editor that 
cause the window to magnify or shrink the 
contents of the container pane. 


eliminates the inaccuracy that results 
because borders do not scale. 


Inside Smalltalk 
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Appendix A 


Source Code Revisions 


REVISIONS TO DISPLAY TRANSFORMATIONS 


In order to display graphical objects (windows included), one of a large number of display 
operations must be selected. The simpler ones are of the form 


* aGraphicalObject display 
® aGraphicalObject displayAt: aPoint 
* aGraphicalObject displayOn: aDisplayMedium at: aPoint 


For more complex control, especially in the context of windows that can be resized and 
repositioned, it is necessary to specify a display transformation. The operations are of the 
form 


aGraphicalObject ... 

aGraphicalObject ... rule: aARuleNumber mask: aForm 

aGraphicalObject ... align: destinationPoint1 with: destinationPoint2 
aGraphicalObject ... align: ..Point1 with: ..Point2 rule: aRuleNumber mask: aForm 
aGraphicalObject ... fixedPoint: sourcePoint 


where “,..” denotes 


displayOn: aDisplayMedium transformation: aTransformation 
clippingBox: aRectangle 


The align:with: variety permits the transformed graphical object to be further offset in 
such a manner that destinationPoint1 is on top of destinationPoint2 when it is displayed. 
The fixedPoint: variety permits a specific source point to display at its intended transformed 
location even if the graphical object does not know how to scale itself. To be clear, these 
two notions need pictures and further elaboration. 
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What Alignment Means 


Alignment is an operation that is used extensively during window creation for positioning a 
window's viewport in the superview window. This kind of positioning is never specified in 
terms of source coordinates; i.e., window coordinations. Rather it is specified in destination 
or viewport coordinates. Figure A.1 illustrates how a viewport can be positioned in the 
superview's window by aligning pointl in the viewport with point2 in the superview 
window. 


superview window 


By aligning Py with Pa, the viewport is translated to that Py is on top of P,. 


Figure A.1 What alignment means. 


The alignment mechanism simply offsets the transformed window by P4-P2. If Py = 
P2, no offsetting is performed. The same idea applies to an arbitrary object like a form. For 
example, if the goal is to display a form in the top left corner of a window and this form is 
to be transformed using the window's display transformation, we will need to move its 
transformed origin to the desired display box origin. The display would be achieved by 
executing 
aForm 
displayOn: Display 
transformation: aDisplayTransformation 
clippingBox: aDisplayBox 
align: (aDisplayTransformation applyTo: aForm origin) with: aDisplayBox origin 


Note that the alignment points need not be inside the graphical object to be displayed. 
Specifying ‘... align: pointl with: point2’ simply indicates that if point? were to be 
displayed, it should be displayed at point2. 


What Fixed Points Are All About 


A fixed point is a point that transforms exactly where the display transformation dictates, 
The notion is interesting only when objects to be displayed cannot be scaled because 
otherwise, all points are fixed points. For example, if a paragraph is displayed, no scaling is 
performed even if the transformation indicates that the paragraph should be magnified by a 
factor of two, say. In that situation, it is always possible to ensure that at least one point 
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maps to the location specified by the display transformation. Other points, however, will 
not. Figure A.2 illustrates how a paragraph would be displayed if a fixed point were 
specified along with a transformation that magnifies it. 


Fixed point Fi maps to F,. 


If the graphical object is prevented from scaling to its intended 
size, only one of the points in the object will actually transform 
to its intended location; namely, the fixed point. 


Figure A.2 What a fixed point means. 
By making different choices for the fixed point, the graphical object ends up being 


displayed at slightly different locations. The results from three different choices are shown in 
Figure A.3. 


rT 


Figure A.3 Choosing different choices for the fixed point. 


Note that specifying a fixed point for objects that are able to scale is superfluous 
because any point specified will map to its intended destination. Additionally, note that the 
fixed point is specified in source coordinates. 
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How Alignment and Fixed Points Are Handled 


The easiest way to understand how these two notions are handled is to rewrite the 
...transformation:...align:with: and ...transformation:...fixedPoint: methods in terms 
of the ...transformation:... method; i.e., construct a new transformation that incorporates 
the alignment and fixed point information and display the graphical object with the simpler 
display method. More specifically, we would like to take the last two methods and show 
how they can be written in terms of the first. 


aGraphicalObject ... 
aGraphicalObject ... align: destinationPoint1 with: destinationPoint2 


*  aGraphicalObject ... fixedPoint: sourcePoint 


where “...” denotes 


displayOn: aDisplayMedium transformation: oldTransformation 
clippingBox: aRectangle 


To do this, it is sufficient to provide the new transformation to be used. 


Handling Alignment 


newTransformation <—— WindowingTransformation 
scale: oldTransformation scale 
translation: oldTransformation translation + 
(destinationPoint2 - destinationPoint1). 


Handling a Fixed Point (Objects That Scale) 
newTransformation <— oldTransformation. 


Handling a Fixed Point (Objects That Do Not Scale) 
newTransformation <— WindowingTransformation 
scale: nil 
translation: (oldTransformation applyTo: sourcePoint) - sourcePoint. 


To justify why this works, consider each case separately. For alignment, the only 
difference between the old transformation and the new is that an extra offset is supplied. 
Since transformations always apply scaling before translation, all points mapped with the 
new transformation must differ from the corresponding points obtained with the old 
transformation by the constant offset ‘destinationPoint2 - destinationPoint1’. So, let's 
consider just one point that is used to map to destinationPointl; i.e., consider aPoint such 
that (oldTransformation applyTo: aPoint) = destinationPointl. Now, 


newTransformation applyTo: aPoint 
= destinationPoint1 + “contant offset" 
= destinationPoint1 + (destinationPoint2 - destinationPoint1) 
= destinationPoint2 


The second case is trivial. If an object can scale, all points are fixed points and no 
special adjustment is needed. 

The third case is more complex but the idea is simple: If an object cannot scale, the 
distance between the origin and the fixed point must be the same both in source coordinates 
and in destination coordination. In source coordinates, this distance is ‘sourcePoint - 0@0’, 
or simply sourcePoint. The transformed origin is determined by subtracting this distance 
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from the transformed fixed point. An equivalent explanation could be provided by expanding 
on the simplified code as follows: 


fixedPoint <- sourcePoint. 
distanceBetweenOriginAndFixedPoint < sourcePoint. 
transformedFixedPoint — displayTransformation applyTo: sourcePoint. 
transformedOrigin + transformedFixedPoint - 

distanceBetween OriginAndFixedPoint. 
newTransformation + WindowingTransformation 

scale: nil 

translation: transformedOrigin. 


What Is Wrong with the Existing Implementation 


The existing implementation attempts to use “two wrongs to make a right” and partly 
succeeds. More specifically, the current approach is the following: 
Handling Alignment 
newTransformation <— WindowingTransformation 
scale: oldTransformation scale 
translation: (oldTransformation applyTo: destinationPoint2) - 
destinationPoint1. 


Handling a Fixed Point 


uses ... align: sourcePoint with: sourcePoint. 


The fixed point display methods were incorrectly written in terms of alignment, which 
of course should simply not work. This error was fixed by changing the alignment code so 
that it would do the fixed point computation. Of course, this means that alignment doesn't 
work. 

It is easy to check that neither works properly. For example, try executing 

Form fromUser 
displayOn: Display 
transformation: (WindowingTransformation scale: 2@2 translation: 0@0) 
clippingBox: Display boundingBox 
align: 0@0 with: Display boundingBox center 
rule: Form over mask: Form black 

This, of course, should magnify the form by a factor of two and display it so that its 
origin is at the center of the screen. Instead, the form is entirely off the screen. Alternatively, 
try executing 

Form fromUser 
displayOn: Display 
transformation: (WindowingTransformation 
scale: 2@2 
translation: Display boundingBox center) 
clippingBox: Display boundingBox 
fixedPoint: Display boundingBox corner 


In this case, you expect the same result because the form is to be scaled and translated 
to the center. The fixed point here is a red herring because all points are fixed points. Again, 
the form is off the screen. 

What is amazing is that most things work in spite of these errors. The explanation is 
simple. Little use is made of the ...align:with:... methods. The major user is the 
..fixedPoint: method, and this method was designed exclusively for use in switch 


Appendix A Source Code Revisions 497 


windows. Currently, switch windows use only paragraphs as labels; these are fixed-size. It's 
not surprising that the method works for such labels but not for forms as labels. 


How to Fix the Display Methods 


To fix the display methods, three things must be done: 


1. 


The applyTo: operation must be eliminated from all ...align:with:... methods. 
You can find them all by asking for all users of applyTo:. 
The ...fixedPoint: methods must be revised as previously indicated. 


Methods boundingBox and computeBoundingBox in class Form must be 
revised to use the offset as the origin rather than 0@0. The old versions must be 
added to class Cursor. 


To ensure that the changes are properly made, the actual code is shown next. 


displaying-generic 


aDisplayObject 


displayOn: aDisplayMedium transformation: displayTransformation 
clippingBox: clipRectangle align: destinationPoint1 with: destinationPoint2 
rule: rulelnteger mask: aForm 


"Display the receiver where a DisplayTransformation is provided as an 
argument, rule is rulelnteger and mask is aForm. Translate by destinationPoint2 
- destinationPoint1. Assumes the display object is fixed-size. Must be 
overridden if otherwise. Information to be displayed must be confined to the 
area that intersects with clipRectangle.“ 


| newOffset | 

newOffset <— displayTransformation translation + 
(destinationPoint2 - destinationPoint1). 

self displayOn: aDisplayMedium 
at: newOffset x truncated @ newOffset y truncated 
clippingBox: clipRectangle 
rule: rulelnteger 
mask: aForm 


aDisplayObject 
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displayOn: aDisplayMedium transformation: displayTransformation 
clippingBox: clipRectangle fixedPoint: aPoint 


“Display the receiver where a DisplayTransformation is provided as an 
argument, rule is Form over and mask is Form black. Assumes the display 
object is fixed-size. Must be overridden if otherwise. Information to be 
displayed must be confined to the area that intersects with clipRectangle." 


self displayOn: aDisplayMedium 
transformation: (WindowingTransformation 
scale: nil 
translation: (displayTransformation applyTo: aPoint) - aPoint) 
clippingBox: clipRectangle 
align: aPoint with: aPoint 
rule: Form over mask: Form black 
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displaying 


aDisplayText 
displayOn: aDisplayMedium transformation: displayTransformation 
clippingBox: clipRectangle align: destinationPoint1 with: destinationPoint2 
rule: rulelnteger mask: aForm 
“Assumes the display object is fixed-size. Must be overridden if otherwise. Re- 


fer to the comment in DisplayObjectidisplayOn:transformation:clippingBox:- 
align:with:rule:mask:.” 


| newOffset | 

newOffset + displayTransformation translation + 
({destinationPoint2 - destinationPoint1). 

self displayOn: aDisplayMedium 
at: newOffset x truncated @ newOffset y truncated 
clippingBox: clipRectangle 
rule: rulelnteger mask: aForm 


displaying 


aForm 

displayOn: aDisplayMedium transformation: displayTransformation 

clippingBox: clipRectangle align: destinationPoint1 with: destinationPoint2 

rule: rulelnteger mask: aForm 
“Graphically, it means nothing to scale a Form by floating point values. 
Because scales and other display parameters are kept in floating point to 
minimize round off errors, we are forced in this routine to round off to the 
nearest integer." 


| scale magnifiedForm newOffset | 
displayTransformation noScale 
if True: [magnifiedForm < self] 
ifFalse: [ 
scale — displayTransformation scale. 
scale — scale x rounded @ scale y rounded. 
(1@1 = scale) 
ifTrue: [scale — nil. magnifiedForm <— self] 
ifFalse: [ 
magnifiedForm + self magnify: self boundingBox by: scaie]]. 
newOffset +- displayTransformation translation + 
({destinationPoint2 - destinationPoint1). 
magnifiedForm 
displayOn: aDisplayMedium 
at: newOffset x truncated @ newOffset y truncated 
clippingBox: clipRectangle 
rule: rulelnteger mask: aForm 


aForm 
displayOn: aDisplayMedium transformation: displayTransformation 
clippingBox: clipRectangle fixedPoint: aPoint 
"Display the receiver where a DisplayTransformation is provided as an 
argument, rule is Form over and mask is Form black. No translation. 
Information to be displayed must be confined to the area that intersects with 
clipRectangle. Since forms can scale, all points are fixed points." 


self displayOn: aDisplayMedium 
transformation: displayTransformation clippingBox: clipRectangle 
align: 0@0 with: 0@0 
rule: Form over mask: Form black 
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display box access 


aForm boundingBox 
TRectangle origin: offset extent: width@height 


aForm computeBoundingBox 
TRectangle origin: offset extent: width@height 


aCursor boundingBox 
TRectangle origin: 0@0 extent: width@height 


aCursor computeBoundingBox 
TRectangle origin: 0@0 extent: width@height 


displaying 


aParagraph 
displayOn: aDisplayMedium transformation: displayTransformation 
clippingBox: clipRectangle align: destinationPoint1 with: destinationPoint2 
rule: rulelnteger mask: aForm 


| newOffset | 

newOffset < offset + displayTransformation translation + 
(destinationPoint2 - destinationPoint1). 

self 
displayOn: aDisplayMedium at: newOffset rounded 
clippingBox: clipRectangle rule: rulelnteger mask: aForm 


A.2 Revisions to Paths 


Class Path and its subclasses Arc, Line, Circle, and so on, have four minor problems that 
should be fixed. We consider them one by one. 


Modification 1: General Display Fixes 


Class Path and its specializations Arc, Circle, Line, Curve, LinearFit, and Spline each have 
method displayOn:transformation:clippingBox:rule:mask: specially implemented to 
properly handle the transformation. On the other hand, displayOn:transformation:clip- 
pingBox:align:with: was not redefined and is therefore inherited from DisplayObject. This 
method does not work with paths because the scaling information is ignored; i.e., the 
method assumes the graphical object is fixed-size. For example, if a line from 0@0 to 
10@10 were to be displayed using a transformation of the form ‘scale: 10 translation: 
5@5’, the latter method simply offsets the display by 5@5 so that the line actually displayed 
begins at 5@5 and ends at 15@15, The correct version requires more than a simple offset; 
the entire line must be transformed and, in this case, magnified. It should display the line 
from 5@5 (0@0 transformed) to 105@105 (10@ 10 transformed). 


A correct version of displayOn:transformation:clippingBox:align:with:rule:mask: 
can be created by adding the additional parameters ‘align: destinationPointl with: destina- 
tionPoint2’ to the existing displayOn:transformation:clippingBox:rule:mask: method in 
Path and each of its subclasses (seven classes in all). 
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For all classes except Circle, ‘at: 0@0’ in the code body is replaced by the difference 
of the alignment points. More specifically, if the method is of the following form, ‘O@0’ is 
replaced by ‘(destinationPoint2 - destinationPoint1)’. 


aPathOrArcOrCurveOrSplineOr... 
displayOn: aDisplayMedium transformation: displayTransformation 
clippingBox: clipRectangle align: destinationPoint1 with: destinationPoint2 
rule: rulelnteger mask: aForm 


aTransformedCopy 
displayOn: aDisplayMedium 
at:0@0 
clippingBox: aClippingRectangle 
rule: aRulelnteger 
mask: aMaskForm 


For class Circle, ‘super displayOn:...transformation:...clippingBox:...rule:...- 
mask:...’ in the code body is replaced by ‘super displayOn:...transformation:...clip- 
pingBox:...align: destinationPoint1 with: destinationPoint2 rule:...mask:...’. 


Note that method displayOn:transformation:clippingBox:rule:mask: can be re- 
moved from each of the subclasses since the version inherited from DisplayObject makes use 
of the new corrected methods. 


Modification 2: Path Display Fix 

The generic displayOn:transformation:clippingBox: method inherited from DisplayOb- 
ject fails for Path and its subclasses. A copy of the DisplayObject version can be added to 
Path (all subclasses can inherit from this one) and modified as follows: “change the al- 
ign:?with:? portion of the displayOn:transformation:clippingBox:align:with:rule:mask: 
message to contain any point constants that are identical; e.g., align:O@Owith:0@0”. 
Modification 3: Missing ‘do:’ Operation in Path 


Path is missing a do: operation required and used by its subclass LinearFit. It can easily 
be added by modifying method collect:. 


Modification 4: Spline Display Fix 

The Spline displayOn:transformation:... method constructs a new transformed spline 
prior to displaying it. However, it fails to compute the curve using computeCurve. Simply 
add ‘newSpline computeCurve’ after the code that constructs it. 

Example 

The following can serve as a test of the above modifications. The intent is to draw six 


special paths in two rows of three squares. The squares should be adjacent to each other 
without overlapping. 
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| aDot aLine aCircle aCurve aPath aLinearFit aSpline aTransformation aBox dt | 
aDot — (Form extent: 4@4) black. 


“Create display objects intended for display on a 10 by 10 area." 
aLine < Line from: 2@2 to: 8@8 withForm: aDot. 
aCircle — Circle new 

form: aDot; radius: 4; center: 5@5; yourself. 
aCurve <— Curve new 

form: aDot; firstPoint: 2@8; secondPoint: 5@2: thirdPoint: 8@8; yourself. 
aPath — Path new 

form: aDot; add: 2@8; add: 2@2; add: 5@8; add: 8@2; add: 8@8; yourself. 
aLinearFit < LinearFit new 

form: aDot; add: 2@8; add: 2@2; add: 5@8; add: 8@2; add: 8@8; yourself. 
aSpline & Spline new 

form: aDot; add: 2@8; add: 2@2; add: 5@8; add: 8@2; add: 8@8; yourself. 
aSpline computeCurve. "Otherwise, the spline cannot be displayed” 


“Display in two rows of three squares each 113 by 113 units (just to pick an odd size)." 
aTransformation +- WindowingTransformation 

window: (0@0 corner: 10@10) viewport: (0@0 corner: 113@113). 
aBox < Display boundingBox. “The rectangle for the entire display" 


Display white. "Start with a nice display” 


d < Display. t — aTransformation. “Just to fit subsequent statements into one line.” 
aLine displayOn: d transformation: t clippingBox: aBox align: 0@0 with: 100@100. 
aCircle displayOn: d transformation: t clippingBox: aBox align: 0@0 with: 213@100. 
aCurve displayOn: d transformation: t clippingBox: aBox align: 0@0 with: 326@100. 
aPath displayOn: d transformation: t clippingBox: aBox align: 0@0 with: 100@213. 
aLinearFit displayOn: d transformation: t clippingBox: aBox align: 0@0 with: 213@213. 
aSpline displayOn: d transformation: t clippingBox: aBox align: 0@0 with: 326@213. 


"By aligning 0@0 with 213@100, for example, we are causing the display to shift right 
by 213 pixels. Clearly, 213 must be in destination coordinates. If it were in source 
coordinates, the actual amount shifted would be "t applyTo: 213"; to get exactly 213, we 
would have to actually supply "t applylnverseTo: 213" (the display method would then 
transform it to cancel out the inverse operation; i.e., "t applyTo: (t applylnverseTo: 213)" 
is 213." 


ScheduledControllers restore. “To place the display into its previous state" 
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Appendix B 


Window Maker Extras 


B.1 COPY AND STORE OPERATIONS FOR EXTENDED VIEWS 


B.1.1 ExtendedStandardSystemView Operations 
copying 


deepCopy 

| copy | 

copy < self shallowCopy 
superView: nil; resetSubViews; 
model: model deepCopy controller: nil; 
transformation: transformation “stores a copy"; 
window: window “stores a copy"; 
labelFrame: labelFrame deepCopy; 
label: (labelText isNil ifTrue: [nil] ifFalse: [self label]); 
minimumSize: minimumSize copy; 
maximumSize: maximumSize copy; 
yourself. 

T bViews do: {:aView | copy addSubView: aView deepCopy]. 

copy 


printing 


storeOn: aStream 
self storeOn: aStream indent: 2 


storeOn: aStream indent: indentation 
“Store this instance of an ExtendedStandardSystemView with indentation for 
readability.“ 
self storeOn: aStream encoding: nil subViews: true indent: indentation 


storeOn: aStream encoding: aStringOrNil subViews: aBoolean indent: indentation 
"Store this ExtendedStandardSystemView using indentation for readability. Either 


generates the encoding or uses the one provided if aStringOrNil is non-nil. Only 
generates the subviews if aBoolean is true.” 


| return continue | 


return <— (WriteStream on: (String new: 16)) crtab: indentation; contents. 
continue < ';', return. 


aStream 

nextPutAll: '(ExtendedStandardSystem View new’; nextPutAll: return; 

nextPutAll: 'name: '; store: name; nextPutAll: continue; 

nextPutAll: ‘preOpeningSelector: '; store: preOpeningSelector; 
nextPutAll: continue; 

nextPutAll: 'postClosingSelector: '; store: postClosingSelector; 
nextPutAll: continue; 

nextPutAll: ‘encoding: '. 


aStringOrNil isNil 
if True: [ExtendedStandardSystemView storeEncoding: encoding on: aStream 
indent: indentation+1] 
ifFalse: {aStream nextPutAll: aStringOrNil]. 
aStream nextPutAll: continue. 


aStream 

nextPutAll: ‘label: '; store: self label; nextPutAll: continue; 

nextPutAll: ‘minimumSize: '; store: minimumSize; nextPutAll continue; 

nextPutAll: 'maximumSize: '; store: maximumSize; nextPutAll: continue; 

nextPutAll: ‘insideColor: '. 
ExtendedStandardSystemView storelnsideColor: insideColor on: aStream. 
aStream nextPutAll: continue. 

ExtendedStandardSystemView storeBorderWidth: borderWidth 
messageOn: aStream. aStream nextPutAll: continue; 

nextPutAll: ‘window: '; store: window; nextPutAll: continue; 

nextPutAll: ‘transformation: ('; print: transformation; nextPut: $); 
nextPutAll: continue. 


aBoolean ifTrue: [ 
subViews do: [:subView | 
aStream nextPutAll: ‘addSubView: '. 
subView storeOn: aStream indent: indentation+1. 
aStream nextPutAll: continue). 


aStream nextPutAll: 'yourself)' 
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copying 


deepCopy 
| copy | 
copy < self shallowCopy 
superView: nil; resetSubViews; 
model: model deepCopy controller: nil; 
transformation: transformation “stores a copy"; 
window: window "stores a copy"; 
yourself. 
subViews do: [:aView | copy addSubView: aView deepCopy]. 
Tcopy 
printing 


Inside Smalltalk 


storeOn: aStream 
self storeOn: aStream indent: 2 


storeOn: aStream indent: indentation 
"Store this instance of an ExtendedView with indentation for readability." 
self storeOn: aStream encoding: nil subViews: true indent: indentation 


storeOn: aStream encoding: aStringOrNil subViews: aBoolean indent: indentation 
“Store this ExtendedStandardSystemView using indentation for readability. Either 
generates the encoding or uses the one provided if aStringOrNil is non-nil. Only 
generates the subviews if aBoolean is true.” 


| return continue | 
return <— (WriteStream on: (String new: 16)) ertab: indentation; contents. 
continue — ';’, return. 


aStream 
nextPutAll: '(ExtendedView new'; nextPutAll: return; 
nextPutAll: 'name: '; store: name; nextPutAll: continue; 
nextPutAll: ‘encoding: '. 
aStringOrNil isNil 
if True: [ExtendedStandardSystemView storeEncoding: encoding on: aStream 
indent: indentation+1] 
ifFalse: [aStream nextPutAll: aStringOrNill. 
aStream nextPutAll: continue. 


aStream 
nextPutAll: ‘insideColor: '. 
ExtendedStandardSystemView storeInsideColor: insideColor on: aStream. 
aStream nextPutAll: continue. 
ExtendedStandardSystemView storeBorderWidth: borderWidth 
messageOn: aStream. aStream nextPutAll: continue; 
nextPutAll: ‘window: '; store: window; nextPutAll: continue; 
nextPutAll: 'transformation: ('; print: transformation; nextPut: $); 
nextPutAll: continue. 
aBoolean ifTrue: [ 
subViews do: [:subView | 
aStream nextPutAll: 'addSubView: '. 
subView storeOn: aStream indent: indentation+1. 
aStream nextPutAll: continuel]. 


aStream nextPutAll: ‘yourself}' 


B.1.3 ExtendedMenuView Operations 
copying 


deepCopy 
Tself shallowCopy 
superView: nil; resetSubViews; 
model: model deepCopy controller: nil; 
transformation: transformation “stores a copy”; 
window: window “stores a copy"; 
yourself 


printing 


storeOn: aStream 
self storeOn: aStream indent: 2 
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storeOn: aStream indent: indentation 
"Store this instance of an ExtendedMenuView with indentation for readability." 
| return continue { 
return e (WriteStream on: (String new: 16)) ertab: indentation; contents. 
continue € ';', return. 
aStream 
nextPutAll: '((ExtendedMenuView on: nil’; nextPutAll: return; 
nextPutAll: ‘printitems: true oneltem: false’; nextPutAll: return; 
nextPutAll: ‘aspect: '; store: partMsg; nextPutAll: return; 
nextPutAll: ‘change: '; store: changeMsg; nextPutAll: return; 
nextPutAll: ‘list: '; store: listMsg; nextPutAll: return; 
nextPutAll: ‘menu: '; store: menuMsg; nextPutAll: return; 
nextPutAll: ‘initialSelection: '; store: initialSelectionMsg; nextPut: $); 
nextPutAll: return; 
nextPutAll: ‘name: ‘; store: name; nextPutAll: continue; 
nextPutAll: 'insideColor: '. 
ExtendedStandardSystemView storelnsideColor: insideColor on: aStream. 
aStream nextPutAll: continue. 
ExtendedStandardSystemView storeBorderWidth: borderWidth 
messageOn: aStream. aStream nextPutAll: continue; 
nextPutAll: 'window: ‘; store: window; nextPutAll: continue; 
nextPutAll: ‘transformation: ('; print: transformation; nextPut: $); nextPutAll: continue; 
nextPutAll: ‘yourself)' 


B.1.4 ExtendedTextView Operations 
copying 
deepCopy 
Tself shallowCopy 

superView: nil; resetSubViews; 
model: model deepCopy controller: nil; 
transformation: transformation “stores a copy"; 
window: window “stores a copy"; 
yourself 


printing 


storeOn: aStream 
self storeOn: aStream indent: 2 


storeOn: aStream indent: indentation 
“Store this instance of an ExtendedTextView with indentation for readability.” 
| return continue | 
return + (WriteStream on: (String new: 16)) ertab: indentation; contents. 
continue < ';', return. 
aStream 
nextPutAll: ‘((ExtendedTextView on: nil’; nextPutAll: return; 
nextPutAll: ‘aspect: '; store: aspect; nextPutAll: return; 
nextPutAll: ‘get: '; store: partMsg; nextPutAll: return; 
nextPutAll: ‘change: '; store: acceptMsg; nextPutAll: return; 
nextPutAll: ‘menu: '; store: menuMsg; nextPut: $); nextPutAll: return; 
nextPutAll: ‘name: '; store: name; nextPutAll: continue; 
nextPutAll: ‘insideColor: '. 
ExtendedStandardSystemView storelInsideColor: insideColor on: aStream. 
aStream nextPutAll: continue. 
ExtendedStandardSystemView storeBorderWidth: borderWidth 
messageOn: aStream. aStream nextPutAll: continue; 
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nextPutAll: ‘window: '; store: window; nextPutAll: continue; 

nextPutAll: ‘transformation: ('; print: transformation; nextPut: $); 
nextPutAll: continue; 

nextPutAll: ‘yourself)’ 


B.1.5 ExtendedExternalView Operations 


copying 


deepCopy 

| copy Í 

copy & self shallowCopy 
superView: nil; resetSubViews; 
model: model deepCopy controller: nil; 
transformation: transformation “stores a copy"; 
window: window “stores a copy"; 
yourself, 

subViews do: [:aView | copy addSubView: aView deepCopy]. 


Teopy 
printing 


storeOn: aStream 
self storeOn: aStream indent: 2 


storeOn: aStream indent: indentation 
“Store this instance of an ExtendedView with indentation for readability." 
I return continue | 
return + (WriteStream on: (String new: 16)) ertab: indentation; contents. 
continue < ';', return. 
aStream 
nextPutAll: '(ExtendedExternalView new'; nextPutAll: return; 
nextPutAll: ‘name: '; store: name; nextPutAll: continue; 
nextPutAll: ‘insideColor: '. 
ExtendedStandardSystemView storelnsideColor: insideColor on: aStream. 
aStream nextPutAll: continue. 
ExtendedStandardSystemView storeBorderWidth: borderWidth 
messageOn: aStream. aStream nextPutAll: continue; 
nextPutAll: ‘window: '; store: window; nextPutAll: continue; 
nextPutAll: ‘transformation: ('; print: transformation; nextPut: $); 
nextPutAll: continue; 
nextPutAll: ‘external: '; store: (Array with: className with: newMessage); 
nextPutAll: continue; 
nextPutAll: 'yourself)' 


B.1.6 ExtendedSwitchView Operations 


copying 
deepCopy 
Tself shallowCopy 

superView: nil; resetSubViews; 
model: model deepCopy controller: nil; 
transformation: transformation "stores a copy"; 
window: window “stores a copy"; 
yourself 


printing 


storeOn: aStream 
self storeOn: aStream indent: 2 
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storeOn: aStream indent: indentation 
"Store this instance of an ExtendedSwitchView with indentation for readability." 
| return continue | 
return <— (WriteStream on: (String new: 16)) ertab: indentation; contents. 
continue < ';', return. 
aStream 
nextPutAll: '(('; nextPutAll: self class name; nextPutAll: ' on: nil'; 
nextPutAll: return; 
nextPutAll: ‘aspect: '; store: aspect; nextPutAll: return; 
nextPutAll: ‘label: '. self storeLabelOn: aStream. aStream nextPutAll: return; 
nextPutAll: ‘isOnSelector: '; store: selector; 
nextPutAll: ' isOnParameters: '; store: arguments; nextPutAIL return; 
nextPutAll: ‘switchSelector: '; store: self controller selector; 
nextPutAll: ' switchParameters: '; store: self controller arguments; 
nextPut: $); nextPutAll: return; 
nextPutAlk: 'name: '; store: name; nextPutAll: continue; 
nextPutAll: 'insideColor: '. 
ExtendedStandardSystemView storelnsideColor: insideColor on: aStream. 
aStream nextPutAll: continue. 
ExtendedStandardSystemView storeBorderWidth: borderWidth 
messageOn: aStream. aStream nextPutAll: continue; 
nextPutAll: ‘window: '; store: window; nextPutAll: continue; 
nextPutAll: ‘transformation: ('; print: transformation; nextPut: $); 
nextPutAll: continue; 
nextPutAll: ‘highlight: '. self storeHighlightOn: aStream. aStream 
nextPutAll: continue; 
nextPutAll: 'mode: '; store: self mode; nextPutAll continue; 
nextPutAll: self fixedPointEncoding; nextPutAll: continue; 
nextPutAll: ‘yourself)' 


storeLabelOn: aStream 
“Attempt to store the most compact representation possible.” 
labelSource isNil 
ifTrue: [Tself storeDisplayObject: label on: aStream] 
ifFalse: (TaStream store: labelSource} 


storeHighlightOn: aStream 
“Attempt to store the most compact representation possible.” 
self storeDisplayObject: highlightSource on: aStream 


storeDisplayObject: anObject on: aStream 
"Attempt to store the most compact representation possible.” 
(anObject isKindOf: DisplayText) 
iffrue: (aStream store: anObject string; nextPutAll: ' asParagraph') 
ifFalse: [anObject storeOn: aStream] 


B.1.7 ExtendedPictureView Operations 
printing 


storeOn: aStream indent: indentation 
“Store this instance of an ExtendedPictureView with indentation for readability." 
! return continue | 
return — (WriteStream on: (String new: 16)) ertab: indentation; contents. 
continue e ';', return. 
aStream 
nextPutAll: ‘((ExtendedPictureView on: nil’; nextPutAlk: return; 
nextPutAll: ‘aspect: '; store: aspect; nextPutAll: return; 
nextPutAllk: ‘label: '. self storeLabelOn: aStream. aStream nextPutAll: return; 
nextPutAll: 'getLabel: '; store: labelMessage; nextPut: $); nextPutAll: return; 
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nextPutAllk ‘name: '; store: name; nextPutAll: continue; 
nextPutAll: ‘insideColor: ’. 
ExtendedStandardSystemView storelnsideColor: insideColor on: aStream. 
aStream nextPutAll: continue. 
ExtendedStandardSystemView storeBorderWidth: borderWidth 
messageOn: aStream. aStream nextPutAll: continue; 
nextPutAll: ‘window: '; store: window; nextPutAll: continue; 
nextPutAll: 'transformation: ('; print: transformation; nextPut: $); 
nextPutAll: continue; 
nextPutAll: ‘mode: '; store: self mode; nextPutAll: continue; 
nextPutAll: self fixedPointEncoding; nextPutAll: continue; 
nextPutAll: ‘yourself)’ 


B.2 COMPILATION OPERATIONS FOR EXTENDED STANDARD 
SYSTEM VIEWS 


class methods 
private compiling support 


compileOQneOrMoreMethods: view intoClass: class method: methodName 

category: categoryName overFlowCategory: overflowCategoryName 
“Attempts to compile one method in the specified class that re-creates the view. If 
it is too large to compile, breaks it up by creating additional overflow methods with 
suffixes ‘Continue1:', 'Continue2:', .. that add the subviews. These overflow 
methods are placed in category overflowCategoryName." 
| aStream source | 


"Create the method." 
Transcript show: ' method 1'. 
aStream < WriteStream on: (String new: 10000). 
aStream 
nextPutAll: methodName; ertab; 
nextPutAll: "Returns an initialized view."'; ertab; 
nextPut: $7; store: view. 


“Compile it.” 
source + aStream contents. aStream e nil. 
(self tryCompiling: source class: class classified: categoryName) 
ifTrue: [ 
Transcript show: '+'. 
self removeContinuationsStartingAt: 1 for: methodName class: class] 
ifFalse: [ 
Transcript show: ‘-’. source + nil. 
Tself compileTwoOrMoreMethods: view intoClass: class 
method: methodName category: categoryName 
overFlowCategory: overflowCategoryName] 


compile TwoOrMoreMethods: view intoClass: class method: methodName 

category: categoryName overFlowCategory: overflowCategoryName 
“Compile the view in pieces where the encoding is considered one piece (piece -1), 
the top view is considered another piece (piece 0), and the individual subviews are 
pieces (1, 2, 3, ...). Attempt to put at many pieces into each method as the compiler 
will permit. The first method with name methodName is place in category 
categoryName. The overflow methods have suffixes 'Continue1:', ‘Continue2"', ... 
appended to the method name. They are placed in category overflowCategory- 
Name." 


| lastPiece limit continuation mostPieces fewestPieces pieces next | 


"iterate to create the maximal sized compiled method." 
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Transcript nextPutAll: ' method 1 <'. 
lastPiece — -2. limit — view subViews size. 
continuation e 0. mostPieces < nil. fewestPieces é nil. pieces + 0. 


[lastPiece <= limit] whileTrue: [ 
next — self whatToDoNextGiven: view and: lastPiece + pieces 
and: mostPieces and: fewestPieces. 
next == #done ifTrue: [ 
Transcript nextPutAll: '>'. 
self ramoveContinuationsStartingAt: continuation+1 for: methodName 
class: class. 
Tself]. 
next == #doneEnough ifTrue: [ 
lastPiece e lastPiece + mostPieces. 
CompilationHeuristic <— mostPieces. 
continuation & continuation + 1. 
Transcript nextPutAll: ‘>, '; print: continuation+1; nextPutAll: ' <' 
mostPieces < nil. fewestPieces «- nil. pieces < 0). 
next == #tryAgain ifTrue: [ 
pieces < self piecesToTryGiven: mostPieces and: fewestPieces. 
pieces < 1 if True: [ 
Transcript show: '>-'. 
self error: ‘method too large -- cannot be compiled. Continue to give up']. 
Transcript show: pieces printString. 
(self tryCompilingContinuation: continuation view: view intoClass: class 
method: methodName category: categoryName 
overFlowCategory: overflowCategoryName 
lastPiece: lastPiece pieces: pieces) 
if True: [Transcript show: '+'. mostPieces + pieces] 
ifFalse: [Transcript show: '-'. fewestPieces < pieces. pieces + 0]]] 


compileEncoding: view intoClass: class method: methodName category: categoryName 
"Attempts to compile just the encoding as a method." 


Transcript show: ' method 1'. 
(self tryCompilingContinuation: 0 view: view intoClass: class method: methodName 
category: categoryName overFlowCategory: ni! lastPiece: -2 pieces: 1) 
ifTrue: [ 
Transcript show: '+'. 


self ramoveContinuationsStartingAt: 1 for: methodName class: class] 
ifFalse: [ 


Transcript show: '-'. 
Tself error: ‘method too large -- cannot be compiled. Continue to give up'] 


tryCompilingContinuation: continuationindex view: view intoClass: class 

method: methodName category: categoryName 

overFlowCategory: overflowCategoryName 

lastPiece: lastPiece pieces: pieces 
"Compiles a method with with name methodName (for continuationIndex 0) and 
suffixes 'Continue’:’, 'Continue2:', .... for (continuationIndex > 0). Piece -1 is 
interpreted as the encoding, piece 0 is the top view, and pieces 1, 2, 3, ... are the 
subviews. No additional overflow methods are generated if overflowCategoryName 
is nil." 
| views start end aStream source | 
"Determine the output range for the pieces." 
views e view subViews. 
start e lastPiece + 1. end <- lastPiece + pieces min: views size. 


Inside Smalitalk 


"Create the method.“ 


“First, the method header.” 
aStream e- WriteStream on: (String new: 10000). 
start = -1 
ifTrue: [ 
aStream 
nextPutAll: methodName; ertab; 
nextPutAll: “Returns an initialized view."'; crtab; 
nextPutAll: (end > -1 if True: ['! anArray aView I'] ifFalse: ['| anArray |']); 
cr; crtab] 
ifFalse: [ 
aStream 
nextPutAll: (self continuationName: continuation|ndex 
for: methodName); 
nextPutAll: (start = 0 ifTrue: [' anArray'] ifFalse: [' aView’']); crtab; 
nextPutAll: "Continues initializing view.”'; er. 
start = 0 ifTrue: [aStream tab; nextPutAll: ‘| aView |’; er]. 
aStream ertab]. 


"Second, the actual code.” 
start to: end do: [:index | 
index = -1 
ifTrue: [ 
aStream nextPutAll: 'anArray e '. 
ExtendedStandardSystemView storeEncoding: view encoding 
on: aStream indent: 2] 
ifFalse: [ 
index = 0 
ifTruo: [ 
aStream nextPutAll: ‘aView e '. 
view storeOn: aStream encoding: ‘anArray’ 
subViews: false indent: 2] 
ifFalse: [ 
aStream nextPutAll: 'aView addSubView: ’. 
(views at: index) storeOn: aStream indent: 2)]. 
aStream nextPut: $.; crtab]. 


"Third, the end of the method." 
end = views size 
ifTrue: [aStream nextPutAll: ‘TaView'] 
ifFalse: [ 
overflowCategoryName isNil 
iffrue: [ 
aStream 
nextPut: $7; 
nextPutAll: (end = -1 if True: ['anArray'] ifFalse: {'aView'])) 
ifFalse: [ 
aStream 
nextPutAll: 'Tself '; 
nextPutAll: (self continuationName: continuation|ndex+1 
for: methodName); 
nextPutAll: (end = -1 ifTrue: [' anArray’'] ifFalse: [' aView'})]]. 
“Compile it.” 
source <~ aStream contents. aStream e nil. 
Tself tryCompiling: source class: class classified: 
(continuationIndex = 0 
ifTrue: [categoryName] 
ifFalse: [overflowCategoryName}) 
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tryCompiling: aMethodString class: class classified: aCategoryString 
“Returns true if compilation is successful; false otherwise. Note: This method is 
invoked rather than executing the code inline to force compiler data structures to 
disappear (it only happens when a return from compile:classified:notifying: occurs 
or the error block is executed)." 
| notifier | 
notifier — ErrorHandler new errorBlock: [:message :position | Tfalsel. 
Ae compile: aMethodString classified: aCategoryString notifying: notifier. 
true 


whatToDoNextGiven: view and: totalSoFar and: mostSuccessful and: leastUnsuccessful 
totalSoFar >= view subViews size ifTrue: [T#donel]. 
mostSuccessful isNil ifTrue: [T#tryAgain]. 
leastUnsuccessful isNil ifTrue: (T#try Again]. 
mostSuccessfu!l + 1 = leastUnsuccessful 
ifTrue: [T#doneEnough] 
ifFalse: (T#tryAgain] 


piecesToTryGiven: mostSuccessful and: leastUnsuccessful 
mostSuccessful isNil & leastUnsuccessful isNil 
if True: [CompilationHeuristic isNil if True: [5] ifFalse: [TCompilationHeuristic]] 
ifFalse: [ 
mostSuccessful isNil 
ifTrue: (TleastUnsuccessful - 1] 
ifFalse: [TmostSuccessful + 1]]. 


continuationName: index for: methodName 
TimethodName, ‘Continue’, index printString, ':') asSymbo! 


removeContinuationsStartingAt: start for: methodName class: class 
| index selector | 
index < start. selector — self continuationName: index for: methodName. 
{class includesSelector: selector] whileTrue: [ 
class removeSelector: selector. 
index < index + 1. 
selector + self continuationName: index for: methodName] 
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class methods 
generic windows 


alignmentWindow 
“Returns an initialized view.” 
| anArray | 


anArray <— "WindowMaker edit:" #(Master nil (-239 -167 239 167) white 1 (2.14644 
1.29816 512.0 264.208) true ‘Alignment’ (nil) (postCloseAlignment: 
anExtendedStandardSystemView) (350 180) (1000 1000) (classMethod 
notEncoded WindowMakerMasterlconController ‘generic windows’ 
alignmentWindow ‘generic windows overflow’) ((Picture nil (-228.0 -156.0 
-187.0 -141.0) white 0 (text ‘widths:') (lockedConstant fixMiddleLeft 0) 

(nil (nil)}) {Picture nil (-228.0 -102.0 -183.0 -87.0) white 0 (text ‘heights:') 
(lockedConstant fixMiddleLeft 0) (nii (nil))) (Picture nil (-228.0 6.0 -111.0 

21.0) white 0 (text ‘up/down alignment:') (lockedConstant fixMiddleLeft 0) 

(nil (nil))) (Picture nil (-228.0 -48.0 -110.0 -33.0) white O (text ‘left/right 
alignment:') (lockedConstant fixMiddleLeft 0) (nil (nil))) (Picture nil (-228.0 60.0 
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-109.0 75.0) white O (text 'horizontal abutment:’) (lockedConstant fixMiddleLeft 
0} (nil (nil}}) (Picture nil (-228.0 114.0 -124.0 129.0) white 0 (text 

‘vertical abutment:') (lockedConstant fixMiddleLeft 0) (nil (nil))) (Group nil (-205 
-114 203 -91) nil 4 (({SwitchAndPicture nil (-209.0 -129.0 -120.0 -114.0) white 0 
(form DefaultFormLibrary button separation 10 text ‘unchanged') 
(lockedConstant fixMiddleLeft 0) (width (isWidth: unchanged) (makeWidth: 
unchanged))) (SwitchAndPicture nil {-103.0 -129.0 33.0 -114.0) white 0 (form 
DefaultFormLibrary button separation 10 text ‘all minimum width’) 
(lockedConstant fixMiddieLeft 0) (width (isWidth: minimum) (makeWidth: 
minimum))) (SwitchAndPicture nil (55.0 -129.0 191.0 -114.0) white 0 (form 
DefaultFormLibrary button separation 10 text ‘all maximum width’) 
(lockedConstant fixMiddleLeft 0) (width (isWidth: maximum) (makeWidth: 
maximum))))) (Group nil {-205 -68 207 -45) nil 4 ((SwitchAndPicture nil 

{-209.0 -75.0 -120.0 -60.0) white 0 (form DefaultFormLibrary button separation 
10 text ‘unchanged’) (lockedConstant fixMiddleLeft 0) (height (isHeight: 
unchanged) (makeHeight: unchanged))) (SwitchAnaPicture nil (-103.0 -75.0 37.0 
-60.0) white 0 (form DefaultFormLibrary button separation 10 text ‘all minimum 
height’) (lockedConstant fixMiddleLeft 0) (height (isHeight: minimum) 
(makeHeight: minimum))) (SwitchAndPicture nil (55.0 -75.0 195.0 -60.0) white 0 
(form DefaultFormLibrary button separation 10 text ‘all maximum height’) 
(lockedConstant fixMiddleLeft 0) (height (isHeight: maximum) {makeHeight: 
maximum)))})) (Group nil {-205 -23 167 0) nil 4 ((SwitchAndPicture nil (-209.0 
-21.0 -120.0 -6.0) white 0 (form DefaultFormLibrary button separation 10 text 
‘unchanged’) (lockedConstant fixMiddleLeft 0) (leftRightAlignment 
(isLeftRightAlignment: unchanged) (makeLeftRightAlignment: unchanged))) 
(SwitchAndPicture nil {-103.0 -21.0 -27.0 -6.0) white 0 (form 
DefaultFormLibrary button separation 10 text ‘left sides’) (lockedConstant 
fixMiddleLeft 0) (leftRightAlignment {isLeftRightAlignment: leftSides) 
(makeLeftRightAlignment: leftSides))) (SwitchAndPicture nil (-16.0 -21.0 52.0 
-6.0) white 0 (form DefaultFormLibrary button separation 10 text 'middles') 
(lockedConstant fixMiddleLeft 0) (leftRightAlignment (isLeftRightAlignment: 
middles) (makeLeftRightAlignment: middles))) (SwitchAndPicture nil (70.0 -21.0 
155.0 -6.0) white 0 (form DefaultFormLibrary button separation 10 text ‘right 
sides’) (lockedConstant fixMiddleLeft 0) (leftRightAlignment 
{isLeftRightAlignment: rightSides) (makeLeftRightAlignment: rightSides))))) 
(Group nil (-205 20 149 43) nil 4 ((SwitchAndPicture nil (-209.0 33.0 -120.0 48.0) 
white 0 (form DefaultFormLibrary button separation 10 text 'unchanged’') 
(lockedConstant fixMiddleLeft 0) (upDownAlignment (isUpDownAlignment: 
unchanged) (makeUpDownAlignment: unchanged))) (SwitchAndPicture nil 
(-103.0 33.0 -56.0 48.0) white 0 (form DefaultFormLibrary button separation 10 
text 'tops') (lockedConstant fixMiddleLeft 0) (upDownAlignment 
(isUpDownAlignment: tops) (makeUpDownAlignment: tops))) 
(SwitchAndPicture nil (-16.0 33.0 52.0 48.0) white 0 (form DefaultFormLibrary 
button separation 10 text 'middles') (lockedConstant fixMiddleLeft 0) 
(upDownAlignment (isUpDownAlignment: middles) (makeUpDownAlignment: 
middles))) (SwitchAndPicture nil (70.0 33.0 137.0 48.0) white 0 (form 
DefaultFormLibrary button separation 10 text 'bottoms’) (lockedConstant 
fixMiddleLeft 0) (upDownAlignment (isUpDownAlignment: bottoms) 
(makeUpDownAlignment: bottoms))))) (Group nil (-205 66 240 89) nil 4 
((SwitchAndPicture nil (-209.0 87.0 -120.0 102.0) white 0 (form 
DefaultFormLibrary button separation 10 text 'unchanged') (lockedConstant 
fixMiddleLeft 0) (horizontalAbutment (isHorizontalAbutment: unchanged) 
(makeHorizontalAbutment: unchanged))) (SwitchAndPicture nil (-103.0 87.0 
-27.0 102.0) white 0 (form DefaultFormLibrary button separation 10 text 
touching’) (lockedConstant fixMiddleLeft 0) (horizontalAbutment 
(isHorizontalAbutment: touching) (makeHorizontalAbutment: touching})) 
(SwitchAndPicture nil (-7.0 87.0 105.0 102.0} white 0 (form DefaultFormLibrary 
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button separation 10 text ‘least separation’) (lockedConstant fixMiddleLeft 0) 
(horizontalAbutment (isHorizontalAbutment: leastSeparation) 
(makeHorizontalAbutment: leastSeparation))) (SwitchAndPicture nil 
(116.0 87.0 228.0 102.0) white 0 (form DefaultFormLibrary button separation 
10 text ‘most separation’) (lockedConstant fixMiddleLeft 0) 
(horizontalAbutment (isHorizontalAbutment: mostSeparation) 
(makeHorizontalAbutment: mostSeparation))))) (Group nil (-204 111 240 134) nil 
4 ((SwitchAndPicture nil (-208.0 141.0 -119.0 156.0) white 0 (form 
DefauitFormLibrary button separation 10 text 'unchanged’) (lockedConstant 
fixMiddleLeft 0) (verticatAbutment {isVerticalAbutment: unchanged) 
(makeVerticalAbutment: unchanged))) (SwitchAndPicture nil (-103.0 141.0 -27.0 
156.0) white 0 (form DefaultFormLibrary button separation 10 text ‘touching’) 
(lockedConstant fixMiddleLeft 0) (verticalAbutment (isVerticalAbutment: 
touching) (makeVerticalAbutment: touching))) (SwitchAndPicture nil (-7.0 141.0 
105.0 156.0) white 0 (form DefaultFormLibrary button separation 10 text 
‘least separation’) (lockedConstant fixMiddleLeft 0) (verticalAbutment 
{isVerticalAbutment: leastSeparation) (makeVerticalAbutment: 
leastSeparation))) (SwitchAndPicture nil (116.0 141.0 228.0 156.0) white 0 
(form DefaultFormLibrary button separation 10 text ‘most separation’) 
(lockedConstant fixMiddleLeft 0) (verticalAbutment (isVerticalAbutment: 
mostSeparation) (makeVerticalAbutment: mostSeparation))))))). 

TanArray 


backgroundWindow 
“Returns an initialized view." 
| anArray | 


anArray e "WindowMaker edit:" #(Master nil (-235 -192 236 192) white 1 
(1.35381 1.18038 319.323 228.065) true ‘Background’ (preOpenBackground: 
anExtendedStandardSystemView) (postCloseBackground: 
anExtendedStandardSystemView) (500 350) (1000 1000) (classMethod 
notEncoded WindowMakerMasterlconController ‘generic windows’ 
backgroundWindow ‘generic windows overflow’) ((Picture nil (-224.0 -181.0 
-147.0 -166.0) white 0 (text ‘kind of switch:') (lockedConstant fixMiddleLeft 
0) (nil {nil))) (Picture nil (-224.0 6.0 -129.0 21.0) white 0 (text 'mode parameters:') 
(lockedConstant fixMiddleLeft 0) (nil (nil))) (Picture nil (-224.0 104.0 
-99.0 119.0) white 0 (text 'fixed point parameters:') (lockedConstant 
fixMiddleLeft 0) (nil (nil))) (SwitchAndPicture nil (-204.0 -107.0 -154.0 
-92.0) white 0 (form DefaultFormLibrary button separation 10 text ‘form’) 
(lockedConstant fixMiddleLeft 0) (pictureVariety (isPictureVariety: form) 
(changePictureVariety: form))) (SwitchAndPicture nil (-204.0 71 -115.0 
86) white 0 (form DefaultFormLibrary button separation 10 text ‘varying size’) 
(lockedConstant fixMiddleLeft 0) (mode {isMode: varying) {changeMode: 
varying))) (SwitchAnadPicture nil {-48.0 50 22.0 65) white 0 (form 
DefaultFormLibrary button separation 10 text ‘unlocked') (lockedConstant 
fixMiddleLeft 0) (locking (isLocking: false) (changeLocking: false)}} (Group nil 
{-218 121 137 144) nil 4 (SwitchAndPicture nil (-204.0 128.0 -139.0 143.0) 
white 0 (form DefaultFormLibrary button separation 10 text ‘top left’) 
(lockedConstant fixMiddleLeft 0) (fixedPoint (isFixedPointEncoding: fixTopLeft) 
(changeFixedPointEncoding: fixTopLeft)}) (SwitchAnaPicture nil (68.0 128.0 
139.0 143.0) white 0 (form DefaultFormLibrary button separation 10 text 
‘top right’) (lockedConstant fixMiddleLeft 0) (fixedPoint (isFixedPointEncoding: 
fixTopRight) (changeFixedPointEncoding: fixTopRight)))}) (Group nil (-218 
139 158 162) nil 4 (SwitchAndPicture nil (-204.0 146.0 -123.0 161.0) 
white 0 (form DefaultFormLibrary button separation 10 text ‘middle left’) 
(lockedConstant fixMiddleLeft 0) (fixedPoint (isFixedPointEncoding: 
fixMiddleLeft) (changeFixedPointEncoding: fixMiddleLeft)}) (SwitchAndPicture 
nil (-48.0 146.0 11.0 161.0) white O (form DefaultFormLibrary button separation 
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10 text ‘center’) (lockedConstant fixMiddleLeft 0) (fixedPoint 
(isFixedPointEncoding;: fixCenter) (changeFixedPointEncoding: fixCenter))) 
(SwitchAndPicture nil (68.0 146.0 155.0 161.0) white 0 (form 
DefaultFormLibrary button separation 10 text ‘middle right’) (lockedConstant 
fixMiddleLeft 0) (fixedPoint (isFixedPointEncoding: fixMiddleRight) 
(changeFixedPointEncoaing: fixMiddleRight))))) (Group nil {-218 159 157 182) nil 
4 ((SwitchAndPicture nil (-204.0 166.0 -119.0 181.0) white O (form 
DefaultFormLibrary button separation 10 text ‘bottom left') (lockedConstant 
fixMiddleLeft 0) (fixedPoint (isFixedPointEncoding: fixBottomLeft) 
(changeFixedPointEncoding: fixBottomLeft))) (SwitchAndPicture nil (68.0 
166.0 159.0 181.0) white 0 (form DefaultFormLibrary button separation 
10 text ‘bottom right’) {lockedConstant fixMiddleLeft 0) (fixedPoint 
(isFixedPointEncoding: fixBottomRight) (changeFixedPointEncoding: 
fixBottomRight))))) (Group nil (-218 23 198 50) nil 4 ((Picture nil (68 32 136 47) 
white 0 (text ‘extra border’) (lockedConstant fixMiddleLeft 0) (nil (nil)}) (Text nil 
(149.0 30.0 204.0 49.0) white 1 (nil (getLockedSizeExpansion) 
(changeLockedSizeExpansion: aText) {acceptCancelYellowButtonMenu))) 
(SwitchAndPicture nil (-204.0 32.0 -110.0 47.0) white 0 (form 
DefaultFormLibrary button separation 10 text ‘constant size’) (lockedConstant 
fixMiddleLeft 0) (mode (isMode: constant) (changeMode: constant))) 
(SwitchAndPicture nil (-48.0 32.0 10.0 47.0) white 0 (form DefaultFormLibrary 
button separation 10 text ‘locked’) (lockedConstant fixMiddleLeft 0) (locking 
(isLocking: true) (changeLocking: true))))) (SwitchAndPicture nil (-204.0 -156.0 
-156.0 -141.0) white 0 (form DefaultFormLibrary button separation 10 text 
‘text') (lockedConstant fixMiddleLeft 0) (pictureVariety (isPictureVariety: text) 
(changePictureVariety: text))) (Group nil (-136 -162 229 5) nil 4 ({External nil 
(-132.0 -117.0 225.0 1.0) nil 1 (FormLibrarian subView)) (Text nil (-132.0 -158.0 
-4.0 -138.0) white 1 (nil (getPictureString) (changePictureString: aText) 
(acceptCancelYellowButtonMenu))))))). 

TanArray 


borderingAndColoringWindow 
"Returns an initialized view." 
| anArray | 


anArray — "WindowMaker edit:” #(Master nil (-254 -129 255 130) white 1 
(2.01572 1.6749 510.992 263.263) true ‘Bordering and Coloring’ (nil) (nil) (350 
180) (1000 1000) (classMethod notEncoded WindowMakerMasterlconController 
‘generic windows’ borderingAndColoringWindow ‘generic windows overflow’) 
(Group nil (-318 -121 -27 124) nil 4 ((Picture nil (-139.0 -118.0 -65.0 -103.0) 
white 0 (text 'border width’) (constant fixMiddleLeft) (nil (nil))} (Group nil 
{-318 -65 -27 124) nil 4 ((Menu nil {-77.0 -62.0 40.0 119.0) white 1 (border 
{getBordersMenuList) (getBordersMenuSelection) (changeBordersMenuSelection: 
aSelectionObject) (nil)}) (Group nil (-318 -58 -193 111) nil 4 (Text 
nil (-161.0 -55.0 -126.0 -37.0) white 1 (border (getTopThickness) 
{changeTopThickness: aText) (acceptCancelYellowButtonMenu))) (Picture nil 
(-243.0 -53.0 -226.0 -38.0) white 0 (text 'top') (constant fixCenter) (nil (nil))) 
(Picture nil (-243.0 88.0 -206.0 103.0) white 0 (text 'bottom') (constant 
fixCenter) (nil (nil))} (Picture nil (-243.0 41.0 -215.0 56.0) white 0 (text 'right’) 
(constant fixCenter) (nil (nil})) (Picture nil (-243.0 -6.0 -224.0 9.0) 
white 0 (text ‘left') (constant fixCenter) (nil (nih) (Text nil (-161.0 
-6.0 -126.0 12.0) white 1 (border (getLeftThickness) (changeLeftThickness: 
aText) (acceptCancelYellowButtonMenu))) (Text nil (-161.0 41.0 -126.0 
59.0) white 1 (border (getRightThickness) (changeRightThickness: aText) 
(acceptCancelYellowButtonMenu))) (Text nil (-161.0 88.0 -126.0 106.0) 
white 1 (border (getBottomThickness) (changeBottomThickness: aText) 
(acceptCancelYellowButtonMenu)))}})))) (Group nil (14 -121 177 124) nil 4 
((Picture nil (153.0 -118.0 180.0 -103.0) white O (text ‘color') (constant 
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fixMiddleLeft) (nil (nil))} (Group nil (85 -66 248 124) nil 4 ((Switch nil (127.0 
-37.0 244.0 -11.0) white 1 (text ") (varying) (color (isNil} (makelnsideColor: 
white))) (Switch nil (127.0 -11.0 244.0 15.0) veryLightGray 1 (text '') (varying) 
(color (isNil) (makelnsideColor: veryLightGray))) (Switch nil (127.0 15.0 244.0 
41.0) lightGray 1 (text ") (varying) (color (isNil) (makelnsideColor: 
lightGray))) (Switch nil (127.0 93.0 244.0 119.0) black 1 (text '') (varying) 
(color (isNil) (makelnsideColor: black))) (Switch nil (127.0 67.0 244.0 
93.0) darkGray 1 (text ") (varying) (color (isNil) (makelnsideColor: 
darkGray))) (Switch nil (127.0 41.0 244.0 67.0) gray 1 (text '') (varying) 
(color (isNil) (makelnsideColor: gray))) (Switch nil (127.0 -63.0 244.0 
-37.0) white 1 (text 'transparent') (varying) (color {isNil) (makelnsideColor: 
nil})) (Switch nil (89 -57 104 -42) white 1 (form DefaultFormLibrary check) 
(lockedConstant fixCenter 0) (color (isinsideColor: nil) (makelnsideColor: 
nil))) (Switch nil (89 -31 104 -16) white 1 (form DefaultFormLibrary check) 
{lockedConstant fixCenter 0) (color (isInsideColor: white) (makelnsideColor: 
white))) (Switch nil (89 -5 104 10) white 1 (form DefaultFormLibrary check) 
(lockedConstant fixCenter 0) {color {islnsideColor: veryLightGray) 
(makelnsideColor: veryLightGray))) (Switch nil (89 21 104 36) white 1 (form 
DefaultFormLibrary check} (lockedConstant fixCenter 0) (color (islnsideColor: 
lightGray) {makelnsideColor: tightGray))) (Switch nil (89 47 104 62) white 1 
(form DefaultFormLibrary check) (lockedConstant fixCenter 0) {color 
(isInsideColor: gray) (makelnsideColor: gray)})) (Switch nil (89 73 104 88) white 1 
(form DefaultFormLibrary check) (lockedConstant fixCenter 0) (color 
(isInsideColor: darkGray) (makelnsideColor: darkGray))) (Switch nil (89 99 104 
114) white 1 (form DefaultFormLibrary check) (lockedConstant fixCenter 0) 
(color (isInsideColor: black) (makelnsideColor: black)}})))))). 

TanArray 


makeMethodWindow 
“Returns an initialized view." 
| anArray | 


anArray e "WindowMaker edit:" #(Master nil (-204 -165 205 165) white 2 
(1.56968 1.26297 319.215 248.61) true ‘Output Options’ (nil) 
(postCloseMakeMethod: anExtendedStandardSystemView) (350 180) 
(1000 1000) (classMethod notEncoded WindowMakerMasterlconController 
‘generic windows’ makeMethodWindow ‘generic windows overflow’) 
((Picture nil (-168.0 -10.0 -107.0 5.0) white 0 (text ‘class name’) 

(constant fixMiddleLeft) (nil (nil))) (Text nil (-29.0 -12.0 192.0 11.0) white 

1 (nil (outputOptionTextAt: methodClass) (outputOptionPutText: aText at: 
methodClass) (acceptCancelYellowButtonMenu))) (Picture nil (-168.0 36.0 
-74.0 51.0) white 0 (text 'method category’) (constant fixMiddleLeft) 

{nil (nil))) (Text nil (-29.0 33.0 193.0 57.0) white 1 (nil (outputOptionTextAt: 
methodCategory) (outputOptionPutText: aText at: methodCategory) 
(acceptCancelYellowButtonMenu))) (Picture nil (-168.0 83.0 -92.0 98.0) white 0 
(text 'method name’) (constant fixMiddleLeft) (nil (nil))) (Text nil (-29.0 79.0 
193.0 103.0) white 1 (nil (outputOptionTextAt: methodName) 
(outputOptionPutText: aText at: methodName) 
(acceptCancelYellowButtonMenu))) (Picture nil (-192 -153 -104 

-138) white 0 (text ‘where to output:') (lockedConstant fixMiddleLeft 

0) (nil (nil))) (Picture nil (-192 -92 -115 -77) white 0 (text ‘how to output:') 
(lockedConstant fixMiddleLeft 0) (nil (nil)}) (Picture nil (-192 -37 -102 

-22) white 0 (text ‘method specifics:') (lockedConstant fixMiddleLeft 

0) (nil (nil))) (Picture nil (-168.0 132.0 -69.0 147.0) white O (text 

‘overflow category’) (lockedConstant fixMiddleLeft 0) (nil (nil))) (Text 

nil (-29.0 129.0 193.0 153.0) white 1 (nil (outputOptionTextAt: 
overflowCategory) (outputOptionPutText: aText at: overflowCategory) 
(acceptCancelYellowButtonMenu))) (Group nil {-201 -126 166 -103) nil 4 
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((SwitchAndPicture nil (-168 -130 -77 -115) white 0 (form DefaultFormLibrary 
button separation 10 text ‘in transcript’) (lockedConstant fixMiddleLeft 0) 
(outputOption (outputOptionAt: destination is: transcript) 
(outputOptionPutText: transcript at: destination})) (SwitchAndPicture nil 
(-67 -130 49 -115) white 0 (form DefaultFormLibrary button separation 10 text 
‘in class method’) (lockedConstant fixMiddleLeft 0) (outputOption 
(qutputOptionAt: destination is: classMethod) (outputOptionPutText: 
classMethod at: destination))) (SwitchAndPicture nil (67 -130 191 -115) 
white 0 (form DefaultFormLibrary button separation 10 text 'in instance 
method’) {lockedConstant fixMiddleLeft 0) (outputOption (outputOptionAt: 
destination is: instanceMethod) (outputOptionPutText: instanceMethod at: 
destination))))) (Group nil (-199 -62 68 -39) nil 4 ((SwitchAndPicture nil (-168 -66 
-72 -51) white 0 (form DefaultFormLibrary button separation 10 text ‘encoding 
only’) (lockedConstant fixMiddleLeft 0) (outputOption (outputOptionAt: 
encoding is: encoded) (outputOptionPutText: encoded at: encoding))) 
(SwitchAndPicture nil (-35 -66 91 -51) white 0 (form DefaultFormLibrary button 
separation 10 text ‘view with encoding’) (lockedConstant fixMiddleLeft 0} 
(outputOption (outputOptionAt: encoding is: notEncoded) (outputOptionPutT ext: 
notEncoded at: encoding)}))))). 

TanArray 


switchAndPictureBackgroundWindow 
“Returns an initialized view.” 
| anArray | 


anArray + "WindowMaker edit:” #(Master nil (-210 -128 210 129) white 1 

(1.51809 1.7661 320.0 226.853) true 'Background’ (preOpenBackground: 
anExtendedStandardSystemView) (postCloseBackground: 
anExtendedStandardSystemView) (500 300) (1000 1000) (classMethod 
notEncoded WindowMakerMasterlconController ‘generic windows’ 
switchAndPictureBackgroundWindow ‘generic windows overflow’) ((Picture nil 
(-199.0 -117.0 -98.0 -102.0) white O (text ‘switch and picture:') (lockedConstant 
fixMiddleLeft 0) (nil (nil))) (Picture nil (-179.0 -91.0 -145.0 -76.0) white O (text 
‘switch') (lockedConstant fixMiddleLeft 0) (nil (nil))) (Picture nil (-179.0 70.0 
-142.0 85.0) white O (text 'picture') (lockedConstant fixMiddleLeft 0) 
(nil (nil))) (External nil (-158.0 -66.0 199.0 52.0) nil 1 (FormLibrarian 
subView)) (Text nil (-158.0 98.0 -30.0 118.0) white 1 {nil (getPictureString) 
(changePictureString: aText) (acceptCancelYellowButtonMenu))))). 

TanArray 


specific windows 


externalWindow 
“Returns an initialized view." 
| anArray | 


anArray < "WindowMaker edit:” #(Master nil (-137 -89 138 89) white 1 (3.73091 
2.43963 510.135 263.873) true ‘External Window Interface’ (preOpenInterface: 
anExtendedStandardSystemView) (nil) (350 180) (1000 1000) (classMethod 
notEncoded WindowMakerMasterlconController ‘specific windows’ 
externalWindow ‘specific windows overflow’) ((Text messageSource (-136.0 - 
63.0 137.0 88.0) white 1 (messageSource (messageSource) (messageSource: 
aText) (messageMenu))) (Switch nil (-136.0 -88.0 -45.0 -63.0) white 1 (text 
‘comment’ (varying) (message (isMessage: comment) (message: comment))) 
(Switch nil (-45.0 -88.0 46.0 -63.0) white 1 (text 'name’) (varying) (message 
(isMessage: name) (message: name))) (Switch nil (46.0 -88.0 137.0 -63.0) white 
1 (text ‘getView') (varying) (message (isMessage: getView) (message: 
getView))))). 

TanArray 
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masterSizingWindow 
“Returns an initialized view.“ 
| anArray | 


anArray <— "WindowMaker edit:" #(Master nil (-221 -37 222 37) white 2 (1.44921 


5.63832 319.275 248.382) true ‘Size Options’ (nil) (nil) (440 72) (572 

76) (classMethod notEncoded WindowMakerMasterlconController 

‘specific windows’ masterSizingWindow ‘specific windows overflow’) ((Picture 
nil (-209 -23 -125 -8) white 0 (text ‘minimum size’) (constant fixMiddleLeft) (nil 
{nil})) (Text nil (-83.0 -25.0 -22.0 -7.0) white 1 (sizing (getMinimumSize) 
(changeMinimumSize: aText) (acceptCancelYellowButtonMenu))) 
(SwitchAndPicture nil (19 -23 205 -8) white 0 (form DefaultFormLibrary button 
separation 10 text ‘interactively set minimum size’) (lockedConstant 
fixMiddleLeft 0) (nil (isNil) (setSize: minimum))) (Picture nil {-209 9 -125 24) 
white 0 (text 'maximum size’) (constant fixMiddleLeft) (nil (nil))) (Text nil {-83.0 
7.0 -22.0 25.0) white 1 (sizing (getMaximumSize) (changeMaximumSize: aText) 
(acceptCancelYellowButtonMenu))) (SwitchAndPicture nil (19 9 210 24} white 0 
(form DefaultFormLibrary button separation 10 text 

‘interactively set maximum size’) (lockedConstant fixMiddleLeft 0) 

(nil (isNil} (setSize: maximum))))). 


TanArray 


masterWindow 
“Returns an initialized view." 
| anArray | 


anArray + “WindowMaker edit:" #(Master nil (-274 -114 274 115) white 1 


(1.87226 1.8919 512.0 263.431) true 'Master Window Interface’ 
(preOpeninterface: anExtendedStandardSystemView) (nil) (350 180) (1000 
1000) {classMethod notEncoded WindowMakerMastericonControler 
‘specific windows’ topWindow ‘specific windows overflow’) {(Text 
messageSource (-273.0 -88.0 273.0 114.0) white 1 (messageSource 
(messageSource) (messageSource: aText) (messageMenu))) (Group nil 
(-277 -117 277 -84) nil 4 (Switch nil (-273.0 -113.0 -182.0 -88.0) white 1 
{text 'comment'’) (varying) (message (isMessage: comment) (message: 
comment))} (Switch nil (-182.0 -113.0 -91.0 -88.0) white 1 (text ‘'name') (varying) 
(message (isMessage: name) (message: name))) (Switch nil (-91.0 -113.0 
0.0 -88.0) white 1 {text ‘topView') (varying) (message {isMessage: topView) 
(message: topView))) (Switch nil (0.0 -113.0 91.0 -88.0) white 1 (text 

'title') (varying) (message (isMessage: title) (message: title))) (Switch, 

nil (91.0 -113.0 182.0 -88.0) white 1 (text 'preOpen') (varying) (message 
(isMessage: preOpeningSelector) (message: preOpeningSelector))) (Switch 
nil (182.0 -113.0 273.0 -88.0) white 1 (text 'postClose') (varying) (message 
(isMessage: postClosingSelector) (message: postClosingSelector))))))). 


TanArray 


menuWindow 
“Returns an initialized view." 
| anArray | 


anArray e "WindowMaker edit:" #(Master nil (-256 -89 257 89) white 1 (2.0 


2.43465 511.0 264.316) true 'Menu Window Interface’ (preOpenlinterface: 
anExtendedStandardSystemView) (nil) (350 180) (1000 1000) (classMethod 
notEncoded WindowMakerMastericonController ‘specific windows’ 
menuWindow 'specific windows overflow’) ((Text messageSource (-255.0 -63.0 
256.0 88.0) white 1 (messageSource (messageSource) (messageSource: aText) 
(messageMenu))) (Group nil (-370 -93 141 -68) nil 4 ((Switch nil (-255.0 

-88.0 -182.0 -63.0) white 1 (text ‘comment’) (varying) {message (isMessage: 
comment) (message: comment))) (Switch nil (-182.0 -88.0 -109.0 -63.0) white 1 
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(text 'name') (varying) (message (isMessage: name) (message: name))) (Switch 
nil (-109.0 -88.0 -36.0 -63.0) white 1 (text 'updateSymbol’) (varying) (message 
(isMessage: updateSymbol} (message: updateSymbol))) (Switch nil (-36.0 -88.0 
37.0 -63.0) white 1 (text 'getMenu’) (varying) (message (isMessage: 
getMenuArray) (message: getMenuArray))) (Switch nil (37.0 -88.0 110.0 -63.0) 
white 1 (text 'getSelection') (varying) (message (isMessage: getMenuSelection) 
(message: getMenuSelection))) (Switch nil (110.0 -88.0 183.0 -63.0) white 
1 (text 'changeSelection') (varying) (message (isMessage: changeMenuSelection) 
imessage: changeMenuSelection))) (Switch nil (183.0 -88.0 256.0 -63.0) 
white 1 (text ‘getYellowMenu') (varying) (message (isMessage: 
getYellowMenu) (message: getYellowMenu))))))). 

TanArray 


pictureWindow 
"Returns an initialized view." 
| anArray | 


anArray — "WindowMaker edit:" #(Master nil (-183 -85 183 86) white 1 (2.80328 
2.53821 512.0 262.714) true ‘Picture Window Interface’ (preOpeninterface: 
anExtendedStandardSystemView) (nil) (350 180) (1000 1000) (classMethod 
notEncoded WindowMakerMastericonController ‘specific windows’ 
pictureWindow ‘specific windows overflow') ((Text messageSource (-182.0 
-59.0 182.0 85.0) white 1 (messageSource (messageSource) (messageSource: 
aText) (messageMenu))) (Group nil (-272 -89 92 -64) nil 4 ((Switch nil {-91.0 
-84.0 0.0 -59.0) white 1 (text 'name’) (varying) (message (isMessage: name) 
(message: name)}) (Switch nil (-182.0 -84.0 -91.0 -59.0) white 1 (text ‘comment') 
(varying) (message (isMessage: comment) (message: comment))) (Switch nil (0.0 
-84.0 91.0 -59.0) white 1 (text 'updateSymbol’) (varying) (message (isMessage: 
updateSymbol) (message: updateSymbol))) (Switch nil (91.0 -84.0 182.0 -59.0) 
white 1 (text 'getLabel’) (varying) (message (isMessage: getLabel) (message: 
getLabel))))))}. 
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switchWindow 
“Returns an initialized view." 
| anArray | 


anArray < "WindowMaker edit:" #(Master nil (-228 -100 229 101) white 1 
(2.24508 2.16009 510.877 262.831) true 'Switch Window Interface’ 
(preOpeninterface: anExtendedStandardSystemView) (nil) (350 180) (1000 
1000) (classMethod notEncoded WindowMakerMasterlconController 
‘specific windows’ switchWindow 'specific windows overflow’) ((Text 
messageSource {-227.0 -74.0 228.0 100.0) white 1 (messageSource 
(messageSource) (messageSource: aText) (messageMenu))) (Group nil 
(-283 -91 172 -66) nil 4 (Switch nil (-227.0 -99.0 -136.0 -74.0) white 1 (text 
‘comment’) (varying) (message (isMessage: comment) (message: comment))) 
(Switch nil (-136.0 -99.0 -45.0 -74.0) white 1 (text ‘name') (varying) 
(message (isMessage: name) (message: name))) (Switch nil (-45.0 -99.0 
46.0 -74.0) white 1 (text ‘updateSymbol’) (varying) (message (isMessage: 
updateSymbol) (message: updateSymbol!))}) (Switch nil (46.0 -99.0 137.0 
-74.0) white 1 (text ‘isOn') (varying) (message (isMessage: isOn) (message: 
isOn)}) (Switch nil (137.0 -99.0 228.0 -74.0) white 1 (text ‘switch’) 

(varying) (message ({isMessage: switch) (message: switch))))))). 

TanArray 
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textWindow 
“Returns an initialized view." 
| anArray | 


anArray <— "WindowMaker edit:" #(Master nil (-274 -114 274 115) white 1 
(1.87226 1.89432 512.0 263.153) true ‘Text Window Interface’ 
(preOpeninterface: anExtendedStandardSystemView) (nil) (350 180) (1000 
1000) (classMethod notEncoded WindowMakerMasterlconController 
‘specific windows’ textWindow ‘specific windows overflow’) ((Text 
messageSource (-273.0 -88.0 273.0 114.0) white 1 (messageSource 
(messageSource) (messageSource: aText) (messageMenu))) (Group nil 
(-344 -134 202 -109) nil 4 ((Switch nil (-273.0 -113.0 -182.0 -88.0) white 1 
(text ‘comment') (varying) (message (isMessage: comment) (message: 
comment))) (Switch nil (-182.0 -113.0 -91.0 -88.0) white 1 (text 'name’) (varying) 
{message (isMessage: name) (message: name))) (Switch nil (-91.0 -113.0 
0.0 -88.0) white 1 (text 'updateSymbol') (varying) (message (isMessage: 
updateSymbol) (message: updateSymbol))) (Switch nil (0.0 -113.0 91.0 -88.0) 
white 1 (text 'getText') (varying) (message (isMessage: getText) (message: 
getText))) (Switch nil (91.0 -113.0 182.0 -88.0) white 1 (text 'changeText') 
(varying) (message (isMessage: changeText) (message: changeText))) (Switch 
nil (182.0 -113.0 273.0 -88.0) white 1 (text 'getMenu') (varying) (message 
(isMessage: getMenu) (message: getMenu)})))))). 

TanArray 


B.4 TEXT DEFAULTS FOR INTERFACE WINDOWS 


In general, the text provided in the default methods is left justified. Paragraphs wrap around 
without explicit carriage returns. Superfluous tabs or blanks must not be introduced since 
they will change the position of the boldfaced sections. As can be seen, the run values 
alternate between normal (1) and boldface (2). Should there be an inadvertent mismatch, the 
easiest solution may be to add additional blank characters at the end, edit the text while in the 
window maker editor to correct obvious deficiencies, and save it permanently via the yellow 
button menu. 


B.4.1 WindowMakerlcon Defaults 
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interface window defaults 


defaultName 
TText 
string: ' 
nil 
“other examples: 
workWindow 
top 


comment: A view name can be used to access the view when pre-opening or post- 
closing an extended standard system view. 


restrictions: A view name must either be nit or a symbol. 


additional information: For a more detailed explanation, see comment in the external 
interface for the master window; i.e., get the yellow-button pop-up menu when no icons 
are selected and choose the external interface entry.” 
runs: (RunArray 
runs: #(8 14 20 7 9 4 37 11 4 12 36 12 47 22 204) 
values: #(12121212121212 1)) 
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defauttUpdateSymbol 
TText 
string:' 
nil 
“other examples: 


color 
shade 


comment: An update symbol can be used by the model to cause all (and only) windows 
with the corresponding update symbol to update themselves. To do this, the model 
sends the message ‘self changed: #updateSymbol’’. 


restrictions: An update symbol must either be nil or a symbol. 


how windows update: The exact manner depends on the kind of window; e.g., a text 
window obtains new text from the model, a menu window obtains a new permanent 
menu and a new selection from the model, a switch window asks the model if it is on, 
and a picture window with dynamic pictures asks the model for a new picture. 


illustration: Suppose a number of switches select shades (white, gray, black) by sending 
appropriate 'switchColor: aSymbol'' messages to the model. Moreover, suppose a text 
window is intended to display the current shade and a menu window is intended to 
display all three entries with the appropriate one selected. Communication between the 
switches and the text and menu window can be achieved by providing the following 
methods in the model. 


switchColor: aSymbol 
““This is a switch window method” 
currentColor e aSymbol. 
self changed: #color 


getText 
"*This is a text window method"" 
currentColor asText 


getMenu 
""This is a menu window method"" 
T#white gray black) 


getMenuSelection 
“"This is a menu window method”" 
TecurrentColor 


The "self changed: #shade" message will cause all windows with update symbol "shade" 
to update themselves. In this case, the text window uses its getText message while the 
menu window uses its getMenu and getMenuSelection messages. Alternate names for 
getText, getMenu, and getMenuSelection can be specified by the window designer." 
runs: (RunArray 
runs: #(8 14 17 7 5 13 189 12 52 18 304 12 433 12 79 8 10 7 61 7 61 16 385) 
values: #(12121212121212121212121)) 


defaultGetYellowMenu 
TText 
string: ' 
model getYellowMenu 


“other examples: 
nil 
model getYellowMenu: #leftPane 
model getYellowMenu: "method" suffix: " categories” 
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comment: The get-menu message (if not nil) is used by the window to ask the model for 
the yellow-button pop-up menu to be used. 


when used: This message is sent to the model each time the user presses the yellow 
button while in this window. The entries in the menu may be different each time. 


restrictions: For non-nil messages, the receiver must be "model". Any number of 
constant parameters can be specified; nil, true, and false are permitted. The result 
returned must be either an action menu or nil. 


action menus: For text windows (only), the action menu normally includes the standard 
text editing selectors "again, undo, copySelection, cut, paste, accept, cancel" in addition 
to user selectors. The user selectors can either have no parameters or two parameters 
(the current text and the controller). When selected, the editing selectors are handjed 
automatically by the text window; the user selectors are sent as messages to the model. 


action menu example: 


ActionMenu 
labels: "again\undo\copy\cut\paste\accept\cancel\minel\mine2" withCRs 
lines: #(2 5 7) 
selectors: #(again undo copySelection cut paste accept cancel mine1 mine2:and:) 


warning: The text object passed in the first of two parameter selectors (e.g., mine2:and: 

above) is the actual text used by the text window. This text could be stored in the 

model. However, subsequent destructive changes by the window will cause it to 
change. If the stored version is to be left intact, care should be taken to store a copy." 

runs: (RunArray 

runs: #(8 13 3 14 14 13 19 13 116 17759173899 156 1210632465 

§6411434129852421323252626 37 14 17 13 4 14 178 19 17 

6 665 13972772513 240 12 2) 

values: #(1212121212121212 

1 


2 
121212121212121212 1 


uN 


12121 212121212 
21212 121) 
B.4.2 WindowMakerMastericon Defaults 


interface window defaults 


defaultComment 
TText 
string: ' 
A master window is a window that contains all the subwindows obtained from the 
window maker. A method can be generated that produces the corresponding view. Two 
varieties exist: 


(1) an extended standard system view (a standalone top view). 
(2) an extended view (a subview). 


Either one of these can incorporate a separately generated subview by constructing an 
external window that references it. At open time, such external windows are replaced 
by the corresponding extended view. See external windows for more details. 


options: The topView option specifies whether a top view or subview is desired. The 
title, preOpen, and postOpen options apply only to top views. The title provides the tab 
at the top of the window (e.g., "Master Window Interface" for this window); a nil title 
implies no tab at all. The preOpen and postClose options (when not nil) are messages 
sent to the model immediately before the window is opened and immediately after it is 
closed respectively. 


opening windows: A top window is opened by providing either an encoding of the 
window which is compact or an extended standard system view which is lengthy but 
much faster. The method construction option gives you a choice of the two. In either 
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case, the window maker uses this view or creates one if necessary and distributes the 
model to all subviews. A preOpen message (if it exists) is then sent to the model. 


WindowMaker open: encodedWindowOrView on: aModel 


preOpen and postClose messages: These messages permit the model to find and store 
(by name) subviews useful for the application and to redistribute (or change) the models 
associated with them. The preOpen and postClose messages include the extended 
systandard system view as a parameter. A preOpen message might be used (1) to 
record, for example, an error message subwindow called "error" for later use (assuming 
such a window was part of the master window) or (2) to initialize some of the 
subwindows with models other than itself; this might be needed for setting up the 
model for an external window. A postClose message might be used to perform final 
post-processing; e.g., if a window provides alignment options, closing the window might 
be the signal to actually perform the alignment. An example preOpen method is 


preOpen: anExtendedStandardSystemView 
| librarian librarianView | 
librarian <— FormLibrarian new. 
librarianView — anExtendedStandardSystemView viewNamed: #librarianView. 
librarianView resetModels; models: librarian. 


Method viewNamed: retrieves the subview with the specified name. Method models: 
recursively replaces nil models by the parameter for all subviews; non-nil models are 
unmodified and stop the recursion. Method resetModels recursively sets all non-nil 
models to nil in the same way.' 
runs: (RunArray 
runs: #(3 13 172 29 34 13 101 8 1537 67 130 5 133 7 5 10 144 15 413 4 22 
2 10 30 557 8 225 40 59 3 49 9 34 11 2 6 21 9 56 6 130 11 60) 
values: #121212121212121212121212121212121212 
12121212 1)) 


defaultPreOpeningSelector 
TText 
string:' 
model preOpen: #anExtendedStandardSystemView 
“other examples: 
nil 
model preinitialize: #anExtendedStandardSystemView 
model setup: #anExtendedStandardSystemView forPane: 2 


comment: The pre-open message (if not nil) is sent to the model immediately before the 
window (view) is opened. The view replaces the first parameter. 


restrictions: For non-nil messages, the receiver must be "model". One or more constant 
parameters can be specified; nil, true, and false are permitted. The result returned is not 


used.” 
runs: (RunArray 
runs: #8 7 34 14 1413395 3275759173 11112 10432465 49) 
values: #121212121212121212121212 1)) 
defaultPostClosingSelector 
TText 


string:' 
model postClose: #anExtendedStandardSystemView 


“other examples: 
nil 
model finalize: #anExtendedStandardSystemView 
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model closeup: #anExtendedStandardSystemView forPane: 2 


comment: The post-close message (if not nil) is sent to the model immediately after the 
window (view) is closed. The view replaces the first parameter. 


restrictions: For non-nil messages, the receiver must be "model". One or more constant 
parameters can be specified; nil, true, and false are permitted. The result returned is not 


used." 
runs: (RunArray 
runs: #8 9 34 14 148 397 3275751117311012 10432465 49) 
values: #121212121212121212121212 1)) 
defaultTitle 
TText 


string: ' 
“Application Window" 


“other examples: 
nil 
“Top Window Interface Options" 


comment: The title provides the tab at the top of the window; a nil title implies no tab at 
all. 


restrictrions: Only a string or nil is permitted." 
runs: (RunArray 
runs: #(25 14 40 7 6 5 80 13 37) 
values: #(1 2 12 1 2 1 2 1)) 


defaultTopView 
TText 
string: ' 
true 


“other examples: 
false 


comment: Specifies whether or not this master window is a top view. 


(1) true => an extended standard system view (it can be used as a top view). 
{2) false => an extended view (it can be used as a subview via an external window).” 
runs: (RunArray 
runs: #(9 14 10 7 78 29 50 13 37 8 10) 
values: #(12121212121)) 


B.4.3  WindowMakerTexticon Defaults 


interface window defaults 


defaultComment 
TText 
string: ' 
A text window communicates with its model via messages 


(1) getText to obtain the text to be displayed from the model. 
{(2) changeText to provide the model with modified text. 
(3) getMenu to obtain the yellow pop-up menu from the model. 


updateSymbol comments: If the model changes its copy of the text and the window 
should reflect the model''s version, the model should send a "self changed: 
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#updateSymbol" message. This could be done anywhere including in the above three 
methods. 


text comments: The getText and changeText messages respectively obtain and provide 
a text object; a string is not allowed. Moreover, the text object is destructively modified 
by the view. If the model's version of the text is to be separate from the view''s version, 
a copy should be saved or provided respectively.’ 
runs: (RunArray 
runs: #(3 11 48 7 57 10 47 7 51 21 225 13 301) 
values: #1212121212121)) 


defaultGetText 
TText 
string: ' 
model getText 


“other examples: 
model getNameTextFor: #manager 
model getVitaeTextFor: #personnel version: #short 


comment: The get-text message is used by the text window to ask the model for the 
text to be displayed. 


when used: This message is sent to the model (1) when the window is initially displayed 
and (2) each time it reacts to a "self changed: #updateSymbol" message sent by the 
model. 


restrictions: The receiver must be "model". Any number of constant parameters can be 


specified; nil, true, and false are permitted. The result returned must be a text object; a 
string will not suffice. 


warning: The text object given to the text window is physically modified. To ensure that 
the version maintained by the model is left intact, the getText method should return a 


copy." 
runs: (RunArray 
runs: #(8 7 3 149 14 1815137 10759849 171128432465 877 
134 39 2) 
values: #12121212121212121212121212121)) 
defaultChangeText 
TText 


string: ' 
model changeText: #aText 
“other examples: 
model changeNameTextTo: #aText for: #manager 
model changeVitaeTextTo: #aText for: #personnel version: #short 


comment: The change-text message is used by the text window give the model updated 
text to be recorded. This text is provided in the first parameter. 


when used: This message is sent to the model when the user accepts the text in the text 
window. 


restrictions: The receiver must be "model". One or more constant parameters can be 
specified; nil, true, and false are permitted. The first parameter (#aText above) is 
replaced by the actual text before the message is sent. The result returned must be a 
boolean with the following interpretation: true - the text has been recorded, false - the 
text has not been recorded (it has been rejected). Typically, true is returned. 
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warning: The text object given to the model is the actual text used by the text window. 
Hence, the window may subsequently physically modify it. To ensure that the version 
maintained by the model is left intact, the changeText method should store a copy. 


optional: Prior to sending a changeText message, the window always asks the model for 
permission by sending it a "changeRequestFrom: aView’ message. The default inherited 
by all objects is to reply true if no other windows contain unaccepted modified text 
(interactive prompting occurs). If this default is not acceptable, the model will need to 
incorporate its own special version such as the following: 


changeRequestFrom: aView 
Ttrue" 
runs: (RunArray 
runs: #8 10 11 14 9 28 18 29 13 7 10 7 5 12 127989 128232465 
183 4 31 5 88 7 205 41 1 10 106 24 270 17 16) 
values: #1212121212121212121212121212121212 
12121) 


B.4.4 WindowMakerMenulcon Defaults 
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interface window defaults 


defaultComment 
TText 
string: ' 
A menu window communicates with its model via messages 


(1) getMenu to obtain the permanent menu from the model 
(an array of objects with distinct print strings). 

(2) getSelection to obtain the menu selection to be displayed from the mode! 
(one of the objects in the above array or nil). 

(3) changeSelection to tell the model of a menu selection change 
(one of the objects in the above array or nil). 

(4) getYellowMenu to obtain the yellow button pop-up menu from the model 
(an action menu). 


updateSymbol comments: If the model changes its version of the permanent menu or 
the menu selection and the window should reflect the model''s version, the model should 
send a ''self changed: #updateSymbol" message. This could be done anywhere including 
in the above four methods.’ 
runs: (RunArray 
runs: #(3 11 48 8 104 13 117 16 102 14 78 21 257) 
values: #(1212121212121)) 


defaultGetMenuArray 
TText 
string: ' 
model getMenuArray 


“other examples: 
model getMenuArrayFor: #names 
model getMenuArrayFor: method" suffix: '' category" 


comment: The get-menu-array message is used by the menu window to ask the model 
for the permanent menu entries to be displayed. 


when used: This message is sent to the model (1) when the window is initially displayed 
and (2) each time it reacts to a "self changed: #updateSymbol"' message sent by the 
model. 
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restrictions: The receiver must be "model". Any number of constant parameters can be 
specified; nil, true, and false are permitted. The result returned must be an array of 
arbitrary objects with distinct print strings; an ordered collection instead of an array, for 
example, is not permitted.” 
runs: (RunArray 
runs: #(8 123 149 15 16 15 1161575 15 1039 171 12 8432465 177) 
values: #(1212121212121212121212121)) 


defaultGetMenuSelection 
TText 
string: ’ 
model getMenuSelection 


“other examples: 
model getMenuSelectionFor: #names 
model getMenuSelectionFor: ''method" suffix: '' category" 


comment: The get-selection message is used by the menu window to ask the model for 
the current selection. If a selection has been made, the corresponding getMenu array 
element is returned; otherwise, nil. 


when used: This message is sent to the model (1) when the window is initially displayed 
and (2) each time it reacts to a ‘self changed: #updateSymbol" message sent by the 
model. 


restrictions: The receiver must be "model". Any number of constant parameters can be 
specified; nil, true, and false are permitted. The result returned must be one of the 
objects in the permanent menu array (the one selected) or nil (for no selection)."' 
runs: (RunArray 
runs: #(8 163 14919 16 19 116157 5 14 180 9 170 128432465 137) 
values: #(1212121212121212121212121)) 


defaultChangeMenuSelection 
TText 
string:' 
model changeMenuSelection: #aSelection 
“other examples: 
model changeMenuSelection: #aSelection forPane: 1 
model changeMenuSelection: #aSelection for: method" suffix: '' category" 


comment: The change-menu-selection message is used by the menu window to inform 
the model that a new selection has been made. This selection is provided in the first 
parameter; either a getMenu array entry if a selection has been made or nil if a 
deselection has occurred. 


when used: This message is sent to the model whenever the user interactively modifies 
the window. 


restrictions: The receiver must be "model". One or more constant parameters can be 
specified; nil, true, and false are permitted. The first parameter (#aSelection above) is 
replaced by the actual selection object (if an actual selection was made) or nil (if a 
deselection was made) before the message is sent. The result returned is ignored." 
runs: (RunArray 
runs: #8 19 16 149 191381119 13 4 116 15 7 5 22 2409 9112823 
2465 75 23 38 3 89) 
values: #121212121212121212121212121212121)) 
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B.4.5 WindowMakerSwitchicon Defaults 


528 


interface window defaults 


defaultComment 
TText 
string: ' 
A switch window communicates with its model via 2 messages 


(1) isOn to ask the model if the switch is on (the switch status). 
(2) switch to tell the model that the switch has been pressed. 


updateSymbo! comments: If the mode! changes the switch status and the window 
should reflect the model'’s version, the model should send a "self changed: 
#updateSymbo!” message. This could be done anywhere including in the above two 
methods.’ 
runs: (RunArray 
runs: #(3 13 50 4 43 13 8 6 54 21 218} 
values: #(1212121212 1)) 


defaultlsOn 
TText 
string: ' 
model isOn 
“other examples: 
model isColor: #blue 
model isBorderSize: 1 


comment: The is-on message is used by the switch window to ask the model if the 
switch is on. 


when used: This message is sent to the model (1) when the switch window is initially 
displayed and (2) each time it reacts to a "self changed: #updateSymbol" message sent 
by the model. 


restrictions: The receiver must be "model". Any number of constant parameters can be 
specified; nil, true, and false are permitted. The result returned must be a boolean: true 
to indicate the switch is down (depressed), false to indicate the switch is up (not 
depressed)."’ 
runs: (RunArray 
runs: #8 431497 15125756789 178 128432465 55 4 45 5 47) 
values: #(12121212121212121212121212 1)} 


defaultSwitch 
TText 
string: ' 
model switch 


“other examples: 
model turnOn 
model turnOff 
model makeColor: #blue 
model makeBorderSize: 1 


comment: The switch message is used by the switch window to tell the model that the 
switch has been pressed. The model will appropriately change its state; e.g., by setting 
one of its instance variables. The switch window subsequently asks the model (using the 
isOn message) to find out whether this caused the switch to turn on (the isOn message 
replies true) or off (the isOn message replies false). 
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when used: when the user interactively pushes the mouse button while in the switch 
window. 


restrictions: The receiver must be "model". Any number of constant parameters can be 
specified; nil, true, and false are permitted. The result returned is ignored. 


sample methods: If the methods for the above messages are implemented as follows, 
then the switch, turnOn, and turnOff methods will work as expected. 


turnOn 
internalState < true 
turnOff 
internalState < false 
switch 
internalState <— internalState not 
isOn 
TinternalState”’ 
runs: (RunArray 
runs: #863 14968789 15 145757 242469417414417549 83 
128432465 49 14 138 6 25 7 26 6 38 4 18) 
values: #121212121212121212121212121212121212 
1212121212 1)) 


B.4.6 WindowMakerPicturelcon Defaults 
interface window defaults 


defaultComment 
TText 
string:' 
Normally, a picture window contains a label (picture) that remains unchanged 
throughout its existence. However, there may be situations where this label may have 
to vary dynamically. For an example, see the form librarian editor. In that case, 2 
additional pieces of information must be provided: 


(1) #updateSymbol that identifies the window for changes, 
(2) getLabel message to obtain a new display object; e.g., a form or a paragraph. 


If the model changes in such a way that this picture window must be updated, it is 
sufficient for the model to execute “self changed: #updateSymbol”.' 
runs: (RunArray 
runs: #(13 14 12 5 2 7 538) 
values: #(1 2 12 12 1)) 


defaultGotLabel 
TText 
string:' 
nil 
“other examples: 
model getLabel 
model getLabelFor: #firstName 


comment: The get-label message (when not nil) is used by the window to ask the model 
for a new label (picture) to be displayed. This label must be nil or a display object such 
as a display text, a paragraph, or a form. 


when used: This message is sent to the model (1) each time the window is displayed and 
(2) each time it reacts to a "self changed: #updateSymbol" message sent by the model. 


aside: A non-nil get-label message is useful only if the window picture must change 
dynamically. 
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restrictions: The receiver for a non-nil get-label message must be "model". Any number 
of constant parameters can be specified; nil, true, and false are permitted. The result 
returned must be nil or a display object; e.g., a paragraph, display text, or form." 
runs: (RunArray 
runs: #(8 14988121375 10 1989 166593121163 2465 111) 
values: #(12121212121212121212121)) 


B.4.7 WindowMaker€Externalicon Defaults 


interface window defaults 


defaultComment 
TText 
string: ' 
An external window is used to reference and obtain a previously constructed extended 
view. This extended view replaces the external window at open time. An external 
window references its extended view via one message: 


(1) getView to obtain an extended view. 


An extended view may constructed in the WindowMaker by specifying that it be a 
subview (as opposed to a top view) in the external interface for the master window.’ 
runs: (RunArray 
runs: #(4 15 405) 
values: #(1 2 1)) 


defaultGetView 
TText 
string: ‘ 
Object getView 
“other examples: 
FormLibrarian subView 
Object getView: #blueButton version: 2 


comment: Permits an externally constructed extended view to be integrated with the 
current view. The extended view replaces this external view at open time. 


restrictions: The receiver must be a class name. Any number of constant parameters can 
be specified; nil, true, and false are permitted. An extended view must be returned. 


constructing extended views: An extended view can be constructed by the window 
maker by specifying a subview (as opposed to top view) in the interface at the top level 
(master window); i.e., by not selecting any icons, choosing the external interface entry 
in the yellow pop-up menu, and setting the topView option to false.” 

runs: (RunArray 


runs: #(19 14 66 7 151 12 25 105432465 19 13 21 27 298) 
values: #1212121212121212121)) 


B.5 WINDOW MAKER ENCODING/DECODING 


Each window maker icon can be encoded for ease of storage and manipulation. An 
encoding is an appropriately initialized array of constants. It cannot, for example, contain 
store strings or objects as rectangles or points. A point such as 10@20 has to be encoded in 
the array either as a subarray (10 20) or as two consecutive integers 10 and 20. The encoding 
for a container icon such as a master icon or a group icon also contains the encoding for the 
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contained icons. Hence, a master icon encoding is a compact representation for an entire 
application window. An encoding can, of course, be decoded into the corresponding icon. 
Decoding a point in this case is a matter of extracting the previously encoded information 
and reconstructing the point. The icon that results can, if desired, be converted into a 
corresponding extended view. In general, the encoding contains more information than the 
corresponding extended view. Hence, it is not possible to go back the other way. For this 
reason, the encoding is maintained with extended standard system views and extended views 
(although not with other views). Once a method is generated to produce an application 
window from extended views, it is possible to discard the encoding. However, it is needed if 
the window is to be edited for changes in the future. The encoding/decoding facility is an 
example of a horizontal facility, since every single class in the WindowMakerlcon hierarchy 
is affected. 


Class WindowMakerlcon 
class WindowMakerlcon 
superclass ExtendedSwitchView 


instance variables 


instance methods 
encoding/decoding 


encodeOn: aStream 

“iconClass iconName window insideColor borderWidth" 

aStream 
nextPutAll: self shortClassName; space; 
stora: (self receiverFor: #name); space. self 
encodeWindowOn: aStream. aStream space. self 
encodeColor: insideColor on: aStream. aStream space. self 
encodeBorderWidthOn: aStream 


decodeFrom: aStream 

“iconClass iconName window insideColor borderWidth“ 

| border | 

self 
changeMessage: #name receiver: aStream next; 
window: (self decodeWindow: aStream next); 
insideColor: (self decodeColor: aStream next); 
borderWidthLoeft: (border — self decodeBorderWidth: aStream next) left 

right: border right top: border top bottom: border bottom 


encodeWindowOn: aStream 
aStream print: (Array 
with: window origin x with: window origin y 
with: window corner x with: window corner y). 
encodeColor: aPoint on: aStream 
insideColor isNil ifTrue: [TaStream print: #nii). 
#{black darkGray gray lightGray veryLightGray white) do: [:candidate | 


{insideColor == (Form perform: candidate)) ifTrue: [TaStream print: candidate]). 
self error: ‘unknown insideColor' 


encodeBorderWidthOn: aStream 
borderWidth = ({(0@0 extent: 0@0) translateBy: borderWidth left) 
if True: (aStream print: borderWidth left] 
ifFalse: [aStream print: (Array with: borderWidth left with: borderWidth top 
with: borderWidth right with: borderWidth bottom)] 
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encodePoint: aPoint on: aStream 
aStream print: (Array with: aPoint x with: aPoint y). 


decodeWindow: anArray 
"decode #{<origin x> <origin y> <corner x> <corner y>)" 
TlanArray at: 1)@(anArray at: 2) corner: (anArray at: 3)@(anArray at: 4) 


decodeColor: aColorSymbol 
aColorSymbol} == #nil 
ifTrue: [Tnil] 
ifFalse: [TForm perform: aColorSymbol] 


decodeBorderWidth: data 
"decode integer or #(<left> <top> <right> <bottom>)" 
(data isKindOF: Integer) 
ifTrue: |Tdata@data corner: data@data] 
ifFalse: [T (data at: 1)@(data at: 2) corner: (data at: 3)@(data at: 4)] 


decodePoint: anArray 
“decode #(<x> <y>)" 
TanArray at: 1)@(anArray at: 2) 


decodeSymbolOrNil: aSymbolOrNil 
“decode #symbol or #nil" 
aSymbolOrNil == #nil if True: [Tnil] ifFalse: [TaSymbol OrNil] 


Class WindowMakerMasterlcon 


class WindowMakerMasterlcon 
superclass WindowMakerlcon 
instance variables ... MinimumSize maximumSize outputOption 


instance methods 
encoding/decoding 


encodeOn: aStream 
"iconClass iconName window insideColor borderWidth transformation topView title 
preOpeningSelector postClosingSelector minimumSize maximumSize outputOption 
{encodedicon1 encodedicon? ...)" 


super encodeOn: aStream. 
aStream 
space. self encodeTransformationOn: aStream. aStream 
nextPutAll: ' "topView" '; store: (self receiverFor: #topView); 
nextPutAll: ' "title" '; store: (self receiverFor: #title); 
nextPutAll: ' “preQpening" '; 
store: (self codingWithoutReceiverFor: #preOpeningSelector); 
nextPutAll: ' “postClosing" '; 
store: (self codingWithoutReceiverFor: #postClosingSelector); 
space. self eancodePoint: minimumSize on: aStream. aStream 
space. self encodePoint: maximumSize on: aStream. aStream 
space; store: outputOption; 
nextPutAll: ' ('. 
subViews do: [:icon | 
WindowMaker encode: icon on: aStream. aStream space]. 
subViews isEmpty ifFalse: [aStream skip: -1). aStream 
nextPut: $) 
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decodeFrom: aStream 
“iconClass iconName window insideColor borderWidth transformation topView title 


preOpeningSelector postClosingSelector minimumSize maximumSize outputOption 
(encodedicon1 encodedicon2 ...)" 


super decodeFrom: aStream. 

self 
transformation: (self decodeTransformation: aStream next); 
changeMessage: #topView receiver. aStream next; 
changeMessage: #title receiver: aStream next; 
changeMessage: #preOpeningSelector selectorArguments: aStream next; 
changeMessage: #postClosingSelector selectorArguments: aStream next. 


minimumSize <— self decodePoint: aStream next. 

maximumSize < self decodePoint: aStream next. 

outputOption <— aStream next. 

aStream next do: [:anltem | self addSubView: (WindowMaker decode: anitem)] 


encodeTransformationOn: aStream 
“encode as #(<scale x> <scale y> <translation x> <translation y>)" 
aStream print: (Array 
with: transformation scale x with: transformation scale y 
with: transformation translation x with: transformation translation y). 


decodeTransformation: anArray 
“decode #(<scale x> <scale y> <translation x> <translation y>)" 
TWindowingTransformation 
scale: (anArray at: 1)@(anArray at: 2) 
translation: (anArray at: 3)@(anArray at: 4) 


Class WindowMakerGrouplicon 


class WindowMakerGrouplcon 
superclass WindowMakerlcon 
instance variables 


encoding/decoding 


encodeOn: aStream 
"iconClass iconName window insideColor borderWidth (encodedicon1 encodediconz2 ...)" 
super encodeOn: aStream. 
aStream 
nextPutAll: ' (’. 
subViews do: [:icon | 
WindowMaker encode: icon on: aStream. aStream space]. 


subViews isEmpty ifFalse: [aStream skip: -1]. aStream 
nextPut: $) 


decodeFrom: aStream 
“iconClass iconName window insideColor borderWidth (encodedicon1 encodedicon2? ...)" 


super decodeFrom: aStream. 
aStream next do: [:anltem | self addSubView: (WindowMaker decode: anitem)] 
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Class WindowMakerTexticon 


class WindowMakerTexticon 
superclass WindowMakerlcon 
instance variables 


instance methods 
encoding/decoding 


encodeOn: aStream 
"iconClass iconName window insideColor borderWidth (updateSymbol getTextMessage 
changeTextMessage getMenuMessage)" 


super encodeOn: aStream. 

aStream 
space; nextPut: $(; store: (self receiverFor: #updateSymbol); 
space; store: (self codingWithoutReceiverFor: #getText); 
space; store: (self codingWithoutReceiverFor: #changeT ext); 
space; store: (self codingWithoutReceiverFor: #getMenu); 
nextPut: $) 


decodeFrom: aStream 
“iconClass iconName window insideColor borderWidth (updateSymbol getTextMessage 
changeTextMessage getMenuMessage)" 


| newStream | 

super decodeFrom: aStream. 

newStream + ReadStream on: aStream next. 

self 
changeMessage: #updateSymbol receiver: newStream next; 
changeMessage: #getText selectorArguments: newStream next; 
changeMessage: #changelT ext selectorArguments: newStream next; 
changeMessage: #getMenu selectorArguments: newStream next 


Class WindowMakerMenulcon 


class WindowMakerMenulcon 
superclass WindowMakerlcon 
instance variables 


instance methods 
encoding/decoding 


encodeOn: aStream 
“iconClass iconName window insideColor borderWidth (updateSymbol 
getMenuArrayMessage getMenuSelectionMessage changeMenuSelectionMessage 
getYellowMenu Message)" 


super encodeOn: aStream. 

aStream 
space; nextPut: §(; store: (self receiverFor: #updateSymbol); 
space; store: (self codingWithoutReceiverFor: #getMenuArray); 
space; store: (self codingWithoutReceiverFor: #getMenuSelection); 
space; store: (self codingWithoutReceiverFor: #changeMenuSelection); 
space; store: (self codingWithoutReceiverFor: #getYellowMenu); 
nextPut: $) 
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decodeFrom: aStream 
*iconClass iconName window insideColor borderWidth (updateSymbol 


getMenuArrayMessage getMenuSelectionMessage changeMenuSelectionMessage 
getYeliowMenu Message)" 


| newStream | 

super decodeFrom: aStream. 

newStream < ReadStream on: aStream next. 

self 
changeMessage: #updateSymbol receiver: newStream next; 
changeMessage: #getMenuArray selectorArguments: newStream next; 
changeMessage: #getMenuSelection selectorArguments: newStream next; 
changeMessage: #changeMenuSelection selectorArguments: newStream next; 
changeMessage: #getYellowMenu selectorArguments: newStream next 


Class WindowMakerSwitchOrPicturelcon 


class WindowMakerSwitchOrPicturelcon 
superclass WindowMakerlcon 
instance variables pictureVariety pictureString pictureFormPathName 


instance methods 
encoding/decoding 


encodeOn: aStream 
“iconClass iconName window insideColor borderWidth pictureData modeData“ 


super encodeOn: aStream. 

aStream 
space; store: self encodedPictureData; 
space; store: self encodedModeData 


decodeFrom: aStream 
"iconClass iconName window insideColor borderWidth pictureData modeData" 


super decodeFrom: aStream. 

self decodePictureData: aStream next. 
self decodeModeData: aStream next. 
self computeLabel 


encodedPictureData 
“The picture data is either of the form 
#text ‘string’ or 
#form libraryName switchName“ 


pictureVariety == #text 
iffrue: (TArray with: #text with: pictureString] 
ifFalse: {TtArray with: #form), pictureFormPathName] 


encodedModeData 
“The mode data is of the form 

#varying 

#constant fixedPoint or 

#lockedConstant fixedPoint lockedSizeExpansion where 
fixedPoint is one of 

#fixCenter, #fixTopLeft, #fixBottomRight, ... 

lockedSizeExpansion is an integer" 


mode == #varying ifTrue: [TArray with: #varying]. 
renting ifFalso: (TArray with: #constant with: self fixedPointEncoding]. 
Array 


with: #lockedConstant with: self fixedPointEncoding with: lockedSizeExpansion 
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decodePictureData: data 
"The picture data is either of the form 
#text ‘string’ or 
#form libraryName switchName" 


pictureVariety < data at: 1. 
pictureVariety == #text 
ifTrue: [ 
pictureString + data at: 2. 
pictureFormPathName < #(DefaultFormLibrary button)] 
ifFalse: [ 
pictureString e "'. 
pictureFormPathName é- data copyFrom: 2 to: 3] 


decodeModeData: data 
“The mode data is of the form 

#varying 

#constant fixedPoint or 

#lockedConstant fixedPoint lockedSizeExpansion where 
fixedPoint is one of 

#fixCenter, #fixTopLeft, #fixBottomRight, ... 

lockedSizeExpansion is an integer" 


| newMode | 
self fixMiddleLeft; lockedSizeExpansion: 0. sizeLocked & false. 
(newMode < data at: 1) == #varying ifFalse: [ 
self perform: (data at: 2). "#fixCenter, #fixTopLeft, #fixBottomRight, ...” 
newMode == #lockedConstant ifTrue: [ 
sizeLocked < true. newMode < #constant. 
self lockedSizeExpansion: (data at: 3)]]. 
self mode: newMode 


Class WindowMakerPicturelcon 


class WindowMakerPicturelcon 
superclass WindowMakerSwitchOrPicturelcon 
instance variables 


instance methods 
encoding/decading 


encodeQOn: aStream 
“iconClass iconName window insideColor borderWidth pictureData modeData 
{updateSymbo! getLabelMessage)" 


super encodeOn: aStream. 

aStream 
space; nextPut: $(; store: (self raceiverFor: #updateSymbol); 
space; store: (self codingWithoutReceiverFor: #getLabel); 
nextPut: $) 


decodeFrom: aStream 
“iconClass iconName window insideColor borderWidth pictureData modeData 
(updateSymbol getLabelMessage}" 


| newStream | 

super decodeFrom: aStream. 

newStream e ReadStream on: aStream next. 

self 
changeMessage: #updateSymboi receiver: newStream next; 
changeMessage: #getLabel selectorArguments: newStream next 
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Class WindowMakerSwitchicon 


class WindowMakerSwitchicon 
superclass WindowMakerSwitchOrPicturelcon 
instance variables 


instance methods 
encoding/decoding 


encodeOn: aStream 
“iconClass iconName window insideColor borderWidth pictureData modeData 
(updateSymbol isOnMessage switchMessage)" 


super encodeOn: aStream. 

aStream 
space: nextPut: §(; store: (self receiverFor: #updateSymbol); 
space; store: (self codingWithoutRoceiverFor: #isOn); 
space; store: (self codingWithoutReceiverFor: #switch); 
nextPut: $) 


decodeFrom: aStream 
"iconClass iconName window insideColor borderWidth pictureData modeData 
(updateSymbol isOnMessage switchMessage)" 


| newStream | 

super decodeFrom: aStream. 

newStream e ReadStream on: aStream next. 

self 
changeMessage: #updateSymbol receiver: newStream next; 
changeMessage: #isOn selectorArguments: newStream next; 
changeMessage: #switch selectorArguments: newStream next 


Class WindowMakerSwitchAndPicturelcon 


class WindowMakerSwitchAndPicturelcon 
superclass WindowMakerSwitchicon 
instance variables separation 


instance methods 
encoding/decoding 


decodoePictureData: data 
“The picture data is of the form 
#form libraryName switchName #separation separation #text ‘string’ 
pictureFormPathName < data copyFrom: 2 to: 3. 
separation < data at: 5. 
pictureString < data at: 7 


decodeModeData: data 
“The mode data is of the form 
#lockedConstant fixedPoint lockedSizeExpansion where 
fixedPoint is one of 
#fixCenter, #fixTopLeft, #fixBottomRight, ... 
lockedSizeExpansion is an integer“ 
self 
mode: #constant; 
perform: (data at: 2); “#fixCenter, #fixTopLeft, #fixBottomRight, ..." 
lockedSizeExpansion: (data at: 3) 
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encodedPictureData 
“The picture data is of the form 
#form libraryName switchName #separation separation #text ‘string’ " 


TOrderedCollection new 
add: #form; 
addAll: pictureFormPathName; 
add: #separation; 
add: separation; 
add: #text; 
add: pictureString; 
asArray 


encodedModeData 
"The mode data is of the form 
#lockedConstant fixedPoint lockedSizeExpansion where 
fixedPoint is one of 
#fixCenter, #fixTopLeft, #fixBottomRight, ... 
lockedSizeExpansion is an integer” 


TArray 
with: #lockedConstant with: self fixedPointEncoding with: lockedSizeExpansion 


Class WindowMakerExternalicon 


class WindowMakerExternallcon 
superclass WindowMakerlcon 
instance variables 


instance methods 
encoding/decoding 


encodeOn: aStream 
“iconClass iconName window insideColor borderWidth getViewMessage” 


super encodeOn: aStream. 
aStream space; store: (self codingFor: #getView) 


decodeFrom: aStream 
“iconClass iconName window insideColor borderWidth getViewMessage” 


super decodeFrom: aStream. 
self changeMessage: #getView receiverSelectorArguments: aStream next 


B.6 WINDOW MAKER COPYING AND CONVERTING TO 
EXTENDED VIEWS 


These methods permit icons to be converted to views to obtain corresponding store strings 
when an application window is to be generated and also permit them to be duplicated via a 
shallow copy to support the copy/paste facility in the window maker. The main copy facility 
is provided in abstract class WindowMakerlcon. It will work for all subclasses except 
Window MakerMasterlcon. 
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Class WindowMakericon 


class WindowMakerlcon 

superclass ExtendedSwitchView 

instance variables .. Messagelnitializers messageSources messageCodings 
messageParsets ... 


generating views 


asView 
self subclassResponsibility 


copying 
shallowCopy 


| copy oldMessagelnitializers oldMessageSources oldMessageCodings 
oldMessageParsers | 


“Modify temporarily” 

oldMessagelnitializers — messagelnitializers. 
messagelnitializers — messagelnitializers copy. 
oldMessageSources < messageSources. 
messageSources <— messageSources copy. 
oldMessageCodings +— messageCodings. 
messageCodings + messageCodings copy. 
oldMessageParsers +— messageParsers. 
messageParsers + messageParsers copy. 


“Make the copy." 
copy < super shallowCopy 
superView: nil; resetSubViews; 
borderWidthLeft: borderWidth left right: borderWidth right 
top: borderWidth top bottom: borderWidth bottom; 
transformation: transformation; “stores a copy” 
window: window; “stores a copy" 
yourself. 
subViews do: [:icon | copy addSubView: icon shallowCopy)]. 


“Restore” 

messagelnitializers <— oldMessagelnitializers. 
messageSources < oldMessageSources. 
messageCodings + oldMessageCodings. 
messageParsers + oldMessageParsers. 


Tcopy 
Class WindowMakerGroupicon 
class WindowMakerGrouplcon 
superclass WindowMakerlcon 


instance variables 
generating views 


asView 
self error: ‘sender should have used groupDo:" 
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Class WindowMakerMastericon 


class WindowMakerMasterlcon 
superclass WindowMakerlcon 
instance variables .. MinimumSize maximumSize outputOption 


generating views 
asView 
| aView | 
aView < (self receiverFor: #topView) 
ifFalse: (ExtendedView new] 
ifTrue: [ExtendedStandardSystemView new 


preOpeningSelector: (self selectorArgumentsFor: #preOpeningSelector); 
postClosingSelector: (self selectorArgumentsFor: #postClosingSelector); 


label: (self receiverFor: #title); 
minimumSize: minimumSize; 
maximumSize: maximumSize; 
yourself). 


aView encoding: (Compiler evaluate: (WindowMaker encode: self)). 


aView 
model: nil; 
name: (self receiverFor: #name); 
insideColor: insideColor; 
borderWidthLeft: borderWidth left right: borderWidth right 
top: borderWidth top bottom: borderWidth bottom; 
window: window; 
transformation: transformation; 
yourself. 


"Eliminate all groups." 
subViews do: [:subView | 
subView groupDo: [:icon | aView addSubView: icon asView]]. 


TaView 
copying 


shallowCopy 
Tsuper shallowCopy outputOption: self outputOption deepCopy 


Class WindowMakerTexticon 


class WindowMakerTextlcon 
superclass WindowMakerlcon 
instance variables “none” 


generating views 
asView 
TExtendedTextView on: nil 

aspect: (self raceiverFor: #updateSymbol) 
get: (self selectorArgumentsFor: #getText) 
change: (self selectorArgumentsFor: #changeText) 
menu: (self selectorArgumentsFor: #getMenu)) 
name: (self receiverFor: #name); 
insideColor: insideColor; 
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borderWidthLeft: borderWidth left right: borderWidth right 
top: borderWidth top bottom: borderWidth bottom; 

window: window; 

transformation: transformation; 

yourself 


Class WindowMakerMenulcon 


class WindowMakerMenulcon 
superclass WindowMakerlcon 
instance variables “none" 


generating views 
asView 
| aView | 
aView <— ExtendedMenuView on: nil 
printitems: true oneltem: false 
aspect: {self receiverFor: #updateSymbol) 
change: (self selectorArgumentsFor: #changeMenuSelection) 
list: (self selectorArgumentsFor: #getMenuArray) 
menu: (self selectorArgumentsFor: #getYellowMenu) 
initialSelection: (self selector ArgumentsFor: #getMenuSelection). 
aView 
name: (self receiverFor: #name); 
insideColor: insideColor; 
borderWidthLeft: borderWidth left right: borderWidth right 
top: borderWidth top bottom: borderWidth bottom; 
window: window; 
transformation: transformation. 
TaView 


Class WindowMakerSwitchOrPicturelcon 


class WindowMakerSwitchOrPicturelcon 

superclass WindowMakerlcon 

instance variables pictureVariety pictureString pictureFormPathName ... 
background 

generateLabel 


“Construct a new label from the current settings; one that can be used to specify a 
label for a new view." 


TpictureVariety == #text 


ifTrue: [pictureString asParagraph! 
ifFalse: (pictureFormPathName] 
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Class WindowMakerPicturelcon 


class WindowMakerPicturelcon 
superclass WindowMakerSwitchOrPicturelcon 
instance variables 


generating views 


asView 

TiExtendedPictureView on: nil 
aspect: (self receiverFor: #updateSymbol) 
label: self generateLabel 
getLabel: (self selectorArgumentsFor: #getLabel)) 
name: (self raceiverFor: #name); 
insideColor: insideColor; 
borderWidthLeft: borderWidth left right: borderWidth right 

top: borderWidth top bottom: borderWidth bottom; 

window: window; 
transformation: transformation; 
mode: self mode; 
perform: self fixedPointEncoding; 
yourself 


Class WindowMakerSwitchlicon 


class WindowMakerSwitchlcon 
superclass WindowMakerSwitchOrPicturelcon 
instance variables 


generating views 


asView 
T(self viewClass on: nil 
aspect: (self receiverFor: #updateSymbol) 
label: self generateLabel 
isOn: (self selectorArgumentsFor: #isOn) 
switch: (self selectorArgumentsFor: #switch)) 
name: (self receiverFor: #name); 
insideColor: insideColor; 
borderWidthLeft: borderWidth left right: borderWidth right 
top: borderWidth top bottom: borderWidth bottom; 
window: self window; 
transformation: self transformation; 
highlight: self generateHighlight; 
mode: self mode; 
perform: self fixedPointEncoding; 
yourself 


viewClass 
TExtendedSwitchView 


Inside Smalltalk 


background 


generateHighlight 
| offForm | 
pictureVariety == #form 
ifTrue: [ 
offForm e FormLibrarian formForPathName: pictureFormPathName. 
(offForm respondsTo: #highlight) 
ifTrue: [T#fromLabel] 
ifFalse: [Înil]] 
ifFalse: [Tnil] 


Class WindowMakerSwitchAndPicturelcon 


class WindowMakerSwitchAndPicturelcon 
superclass WindowMakerSwitchicon 
instance variables separation 


generating views 


viewClass 
TExtendedSwitchAndPictureView 


background 
generateLabel 


“Label must be of the form #(pictureFormPathName separation pictureString)." 
TArray with: pictureFormPathName with: separation with: pictureString 


Class WindowMakerExtemalicon 


class WindowMakerExternallcon 
superclass WindowMakertcon 
instance variables “none” 


generating views 


asView 

TExtendedExternalView new 
model: nil; 
name: (self receiverFor: #name); 
insideColor: insideColor; 
borderWidthLeft: borderWidth left right: borderWidth right 

top: borderWidth top bottom: borderWidth bottom; 

window: window; ° 
transformation: transformation; 
external: (self receiverSelectorArgumentsFor: #getView); 
yourself 
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SYSTEM CLASSES 


ActionMenu, 3-5, 61, 305-309, 316-317 
BinaryChoice , 60-62, 305-309, 324-325 
BinaryChoiceController, 60-62, 305-307, 325 
BinaryChoiceView, 60-62, 305-307, 326-327 
BooleanView, 255, 277-278 

Button, 61, 254-258 

Controller, 7, 61-62, 64-83, 114-151 
ControlManager, 11, 36-44 


CRFillInTheBlankController, 60-62, 305-307, 
317, 321 


Cursor, 6 

Delay, 29-31 

DisplayTextView, 61, 166-170 
FilllnTheBlank , 60-62, 305-308, 317-320 


FilllnTheBlankController, 60-62, 305-307, 317, 
320-321 


FilllnTheBlankView, 60-62, 305-307, 317, 321- 
323 


FormEditor, 300, 303 

FormHolderView, 61, 300, 302-303 
FormMenuController, 61-62, 254, 293-295 
FormMenuView, 61-62, 254, 293-295 
FormView, 61, 300-302 

Icon, 60-61 

lconController, 60-61 

IconView, 60-61 


IndicatorOnSwitchController, 254-255, 289 
InputSensor, 6-7 

ListController, 61-62, 221 

ListView, 61-62, 221 

LockedListController, 221-222 
LockedSwitchController, 254-255, 270 
MessagetTally, 31-32 

Model, 7, 59-60, 64-66 

MoU enncenaen 61, 64, 114-120, 131- 


NoController, 61, 64, 114-115 
OneOnSwitch, 60, 254-260 
Paragraph, 59, 158-161 
ParagraphEditor, 62, 119, 159-166 
PopUpMenu, 61, 116-118 
PopUpMenu, 3-5, 307-316 
ProcessScheduler, 11 
ScreenController, 61, 114, 128-129 
ScrollController, 61, 114, 129-151 
SelectionInListController, 61, 206 
SelectionInListView, 61, 206 
Semaphore, 32-35 

SharedQueue, 35-36 


StandardSystemController, 60-61, 64-65, 
114, 120-124 


545 


StandardSystemView, 60-61, 64-65, 114, 120- 
123, 125-128 


StringHolder, 60-61, 170-174 
StringHolderController, 60-61,174-176 
StringHolderView, 60-61, 176-177 
Switch, 20-22, 60-62, 254-257 
SwitchController, 60-62, 254-255, 268-269 
SwitchView, 60-62, 254-255, 270-276 
TextCollector, 60-61, 184-187 
TextCollectorController, 60-61, 184-188 


DEMONSTRATION CLASSES 


CollectionMenuController, 227 
CollectionMenuModel, 225-226 
CommandExecutor, 243-243 
ContinuousSwitchController, 388-389 
DemonstrationLight, 23-24 

Duckling, 16-17 

ESPGame, 70-72 

ESPController, 73-74 

ESPView, 76-83 

ErrorHandler, 367 


ExtendedExternalView, 360, 363-364, 375, 
507 


ExtendedMenuController, 373, 505-506 
ExtendedMenuView, 360, 363-364, 372-373 
ExtendedMessage, 366 
ExtencedPictureView, 360, 363-364, 385, 508- 


ExtendedStandardSystemView, 360, 363-364, 
368-370, 503-504, 509-512 


ExtendedSwitchController, 377 


ExtendedSwitchAndPictureView, 360, 363- 
364, 386-387 


ExtendedSwitchView, 360, 363-364, 377-384, 
507-508 


ExtendedTextView, 360, 363-364, 374-375, 
506-507 


ExtendedView, 371, 504-505 
FilledPie, 336-337 
FilledPieMenu, 338 
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TextCollectorView, 60-61, 184-188 
TextCompositor, 60, 158-159 
TextController, 63, 212-213 
TextHolder, 60 

TextList, 60, 158, 221-222 

TextView, 61, 213-214 

View, 7, 60-61, 64-65, 83-113, 120-128 
WindowingTransformation, 45-53 


FormLibrarian, 346-358 

FormLibrary, 345-346 
FormWithHighlight, 344 

MenuModel, 224-225 

MotherDuck, 17-20 
NonOverlayingSwitchView, 275 
NotePad, 191 

NotePadController, 192 
NotePadView, 192-193 
ParagraphEditorView, 164 

Person, 210-212 

PhoneBookBrowser, 235-237, 246-249 
PhoneBookListView, 237 
PhoneBookTextController, 237-239 
PhoneBookTextView, 239 

Pie, 330-332 

PieMenu, 333-335 

Pizza, 282-287 

ReadWindowStream, 200 
ReadWriteWindowStream, 196-199 
Scroller, 139-148 
StringHolderControllerWithScroller, 149-151 
SymbolicArithmeticController, 180-181, 194 
SymbolicExpression, 181-183, 195 
SymbolicPrimitive, 183-184 
TicTacToeController, 108-109 
TicTacToeGame, 104-106 
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TicTacToeView, 110-113 
UnscaledSwitchView, 290-292 
WindowMaker, 390-393, 445 
WindowMakerControllerWithCancel, 414-430 


WindowMakerExternallcon, 405, 469, 481, 
486-487, 530, 538, 543 


WindowMakerGrouplcon, 397, 402, 406, 437- 
438, 441-444, 448-449, 450-451, 456-459, 
461-462, 47 1-472, 533, 539 


WindowMakerlcon, 397, 399-401, 404, 425, 
449, 467, 473-483, 520-522, 531-532, 539 


WindowMakerMasterlcon, 398, 405, 431-435, 
449, 522-524, 532-533, 540 


WindowMakerMasterlconController, 410-413, 
438, 445, 451, 512-520 
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DependentsFields, 13 


Processor, 11 
ScheduledControllers, 11, 36-44 
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WindowMakerMenulcon, 405, 468, 483-484, 
526-527, 534-535, 541 


WindowMakerPicturelcon, 469, 485, 529-530, 
542 


WindowMakerSwitchlcon, 409, 469, 484-485, 
528-529, 537, 542-543 


WindowMakerSwitchAndPicturelcon, 408, 
486, 537-538, 543 


WindowMakerSwitchOrPicturelcon, 407-408, 
454-455, 484, 535-536, 541 


WindowMakerTexticon, 405, 468, 483, 524- 
526, 534, 540-541 


WindowStreamController, 201-204 
WindowStreamView, 204-205 


Sensor, 6-7 
Transcript, 5-6 
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ActionMenu, 3-5, 61, 305-309, 313, 316-317 
detailed protocol, 3-5, 307-309, 316-317 
example, 307-308, 313 
introduction, 3-5, 61, 305-307 


BinaryChoice , 60-62, 305-309, 324-325 
detailed protocol, 324-325 
example, 307-309 
introduction, 60-62, 305-309 
BinaryChoiceController, 60-62, 305-307, 325 
detailed protocc!, 325 
introduction, 60-62, 305-307 
BinaryChoiceView, 60-62, 305-307, 326-327 
detailed protocol, 326-327 
introduction, 60-62, 305-307 
BooleanView, 255, 277-278 
detailed protocol, 277-278 
introduction, 255, 277 
Browsers, 2-3 
invoking, 2-3 
Button, 61, 254-258 
also see Switch 
creation, 255-256 
detailed protocol, 258 
general, 61, 254 
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Confirmers, 3-5, 305-309, 323-327 
general, 323-327 
invoking, 3-5, 305-309 
Controller, 7, 61-62, 64-83, 114-151 
also see MVC 
basic classes (Model, View, Controller), 64-65 
characterization, 61-62 


detailed protocol, 66-68 
ESP game, 69-83 
explanation, 7 


support classes (NoController, MouseMenu- 
Controller, StandardSystemController, 
ScreenController, ScrollController), 114- 
151 


CRFilllnTheBlankController, 60-62, 305-307, 
317, 321 
detailed protocol, 321 
introduction, 60-62, 305-307, 317 
Cursors, 5 
obtaining, 5 


Delay, 29-31 

detailed protocol, 29-31 
Dependency Maintenance, 11, 12-24 

coordinated lights problem, 22-24 

detailed protocol, 12-24 

duck imprinting problem, 15-20 

relationship to MVC, 11 

switches: example use, 20-22 

text collector dependencies, 189-190 
DisplayTextView 166-170 

detailed protocol, 168-169 

general 166-170 


Examples 
a pizza query window, 280-286 
coordinated lights problem, 22-24 
duck imprinting problem, 15-20 
electronic phone book:, 233-239, 246-249 
ESP game, 69-83 
note pads: text collectors, 190-192 
pie menus, 327-338 
scroller classes, 139-151 
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tic-tac-toe game, 103-113, 119-120 
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FillnTheBlank , 60-62, 305-308, 317-320 
detailed protocol, 317-320 
example, 307-308, 318 
introduction, 60-62, 305-307, 317 
FilllnTheBlankController, 60-62, 305-307, 317, 
320-321 
detailed protocol, 320-321 
introduction, 60-62, 305-307, 317 
FilllnTheBlankView, 60-62, 305-307, 317, 321- 
323 
detailed protocol, 321-323 
introduction, 60-62, 305-307, 317 
FormEditor, 300, 303 
introduction, 300, 303 
FormHolderView, 300, 302-303 
detailed protocol, 302-303 
introduction, 300 
FormMenuController, 61-62, 254, 293-295 
detailed protocol, 293-295 
introduction, 61-62, 254 
FormMenuView, 61-62, 254, 293-295 
detailed protocol, 293-295 
introduction, 61-62, 254 
FormView, 300-302 
detailed protocol, 301-302 
introduction, 300 
Form libraries, 341-358 
detailed protocol, 343-358 
introduction, 341-343 
Form windows, 299-303 
also see class FormView 
creating form windows, 300-301 
example, 300-301 
general, 299-300 
model protocol, see Form (Vol. 1) 
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introduction, 254-255 
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ListController, 221-222, 228-229 
detailed protocol, 228-229 
introduction, 221-222 

ListView, 22 1-222,230-232 
detailed protocol, 230-232 
introduction, 221-222 

LockedListController, 221-222, 229 
detailed protocol, 229 
introduction, 221-222 


LockedSwitchController, 254-255, 270 
detailed protocol, 270 
introduction, 254-255 
Locking, 
transformations, 92-94 
string holders windows, 172-173, 177-179 


Menu windows, 219-249 


also see classes TextList, ListController, List- 
View, LockedListController, SelectionIn- 
ListController, SelectioninListView 


electronic phone book, 233-239, 246-249 
general, 219-221 
varieties 
pluggable, 239-245 
creating, 239-243 
example, 242-243, 245-249 
model protocol, 241-243 
standard, 222-239 
creating, 222-227 
example, 233-239 
model protocol, 222-232 
Model-View-Controller 
see MVC 
Model, 7, 59-60, 64-66 
also see MVC 
basic classes, 64-66 
characterization, 59-60 
explanation, 7 
MouseMenuController, 61, 64, 115-120, 131- 
151 
detailed protocol, 115-120 
example, 116 
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scrolling protocol, 131-132 

scroller class examples, 139-151 

setting up mouse menus, 118-119 
MVC, 7-12 

basic philosophy, 7-12 

mixing and matching, 63 

pluggable view philosophy, 12 


NoController, 61, 64, 114-115 
detailed protocol, 114-115 
general, 61, 64 

Notifiers, 3-5 
invoking, 3-5 
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OneOnSwitch, 60, 254-260 
also see Switch 
creation, 255-256 
detailed protocol, 258-260 
general, 60, 254 
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ParagraphEditor, 62, 119, 160-166 
casual referencces, 62, 119 
detailed protocol, 160-166 
Pluggable windows, 12, 205-207, 207-214, 
239-249, 276-292 
philosophy, 12, 205-207 
pluggable menu windows, 239-249 
creating, 239-243 
detailed protocol, 243-245 
example, 242-243, 245-249 
pluggable switch windows, 276-292 
creating, 277-278 
detailed protocol, 277-278 
example, 280-286 
scaled versus unscaled, 287-292 
pluggable text windows, 207-214 
creating, 208-209 
detailed protocol, 212-214 
example, 209-212 
PopUpMenu, 3-5, 61, 116-118, 307-316 
detailed protocol, 3-5, 307-316 
example, 116-118, 307-308, 313 
introduction, 3-5, 61, 305-307 


Index 


Pop-up menus, 3-5, 307-313, 327-338 
also see classes PopUpMenu, ActionMenu 
creating, 3-5, 307-309, 312-313 
example: pie menus, 327-338 
general, 3-5, 307-309, 310, 312-313 
invoking, 3-5, 307-309, 312-313 
Pop-up text-query windows, 3-5, 305-309, 
317-323 
also seeclasses FilllnTheBlank, FillinTheBlank- 


Controller, CRFillInThe BlankController, Fill - 
InTheBlankView 


invoking, 3-5, 305-309 
general, 317-323 

Pop-up binary text-query windows, 3-5, 305- 
309, 323-327 


also see classes BinaryChoice, BinaryChoice - 
Controller, BinaryChoiceView 


general, 323-327 
invoking, 3-5, 305-309 
Process management, 11, 25-35 
delays, 29-31 
detailed protocol, 25-35 
examples, 27-31, 34-35 
introduction, 11 
priorities, 25-26 
semaphores, 32-35 
shared queues, 35-36 
Profiling, 31-32 
examples, 31-32 


Screen, 5 
restoring, 5 
ScreenController, 61, 114, 128-129 
detailed protocol, 128-129 
general, 61, 114 
ScrollController, 61, 114, 129-151 
detailed protocol, 131-138 
general, 61, 114, 129-151 
SelectioninListController, 239-240, 243 
detailed protocol, 243 
introduction, 239-240 
Selection|InListView, 239-241, 244-245 
detailed protocol, 240-241, 244-245 
introduction, 239-240 
Semaphore, 32-35 
detailed protocol, 32-35 
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Sensor, 5-6 
invoking, 5-6 
SharedQueue, 35-36 
detailed protocol, 35-36 
StandardSystemController, 60-61, 64-65, 114, 
120-124 
detailed protocol, 120-124 
general, 60-61, 64-65, 114 
icons, 121-122 
StandardSystemView, 60-61, 64-65, 114, 120- 
123, 125-128 
detailed protocol, 120-123, 125-128 
icons, 121-122 
String holder windows, 171-184 
close confirmers, 177-179 
creating, 171-172 
detailed protocol, 172-177 
examples, 171-172, 179-184 
locking, 172-173, 177-179 
StringHolder, 170-174 
detailed protocol, 172-174 
general, 170-171 
StringHolderController, 174-176 
detailed protocol, 174-176 
StringHolderView, 176-177 
detailed protocol, 174-177 
Switch, 20-22, 60-62, 254-257 
creation, 255-256 
detailed protocol, 20-22, 256-257 
general, 20-22, 60-62, 254 
SwitchController, 60-62, 254-255, 268-269 
detailed protocol, 268-269 
introduction, 60-62, 254-255 
SwitchView, 60-62, 254-255, 270-276 
detailed protocol, 270-276 
introduction, 60-62, 254-255 
Switch menu windows, 253-254, 261, 293- 
295 
creating, 293-294 
detailed protocol, 294-295 
example, 293-294 
general, 253-254, 261 
Switch windows, 253-295 


also see classes Switch, Button, OneOn- 
Switch, SwitchController, SwitchView, 
IndicatorOnSwitchController, Locked- 
SwitchController, BooleanView, Form- 
MenuController, FormMenuView 
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examples 
a pizza query window, 280 
a subclass with non-overlaying labels 
and highlights, 275 
general, 253-255 
varieties 
switches, 255-260 
switch windows 
pluggable , 276-292 
creating, 277-278 
examples, 277-278, 280-286 
model protocol, 277-278 
standard, 260-276 
creating, 261-267 
examples, 261-267, 275 
model protocol, see switches 


scaled, unscaled, fixed-points, 
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TextCollector, 184-187 
detailed protocol, 185-187 
introduction, 184-185 
TextCollectorController, 184-188 
detailed protocol, 188 
introduction, 184-185 
TextCollectorView, 184-188 
detailed protocol, 188 
introduction, 184-185 
Text collector windows, 184-192 
creating, 185 
dependency maintenance, 189-190 
detailed protocol, 172-174 
example, 185, 190-192 
note pads: a text collector extension, 190-192 
TextController, 212-213 
detailed protocol, 212-213 
TextHolder, 170-174 
detailed protocol, 172-174 
TextList, 221-222 
introduction, 221-222 
TextView, 213-214 
detailed protocol, 213-214 
Text request windows, 3-5 
invoking, 3-5 
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also see classes ParagraphEditor, Display- 
TextView 


examples 


note pads: a text collector extension, 190- 
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symbolic manipulation: a string holder 
extension, 179-184, 193-194 


window streams: a text collector 
extension, 195-205 
general, 157-159 
varieties 
pluggable, 207-214 
creating, 208-212 
examples, 209-212 
model protoco!, 209 
standard, 160-205 
creating, 163-166, 171-172, 185 
display-text windows, 166-170 
examples, 163-166, 171-172, 179- 
184, 185, 188, 190-192, 193-194, 
195-205 
model protocol, 160-163 
string/text holder windows, 170-184 
text collector windows, 184-205 
Transcript, 5-6 
invoking, 5-6 
Transformations, 45-53, 92-94 
as used by views, 92-94 
detailed protocol, 45-53 
revisions, 493-500 
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View, 7, 60-61, 64-65, 83-113, 119-120 
also see MVC 
basic classes, 64-65 
characterization, 60-61 
coloring, sizing, bordering, 89-90 
detailed protocol, 83-113 
displaying, 91-92 
explanation, 7 
interfacing (models and controllers), 86-89 
interfacing (views), 95-103 
tic-tac-toe game, 103-113, 119-120 
transformations, 92-94 
view locking, 92-94 


windows, viewports, display boxes, 84-86, 95- 
98 
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Window, 1, 57-59 

definition, 1,57 

characterization, 57-59 
WindowMaker, 390-393, 445 
WindowMakerControllerWithCancel, 414-430 


WindowMakerExternallcon, 405, 469, 481, 
486-487, 530, 538, 543 


WindowMakerGrouplcon, 397, 402, 406, 437- 
438, 441-444, 448-449, 450-451, 456-459, 
461-462, 471-472, 533, 539 


WindowMakerlcon, 397, 399-401, 404, 425, 
449, 467, 473-483, 520-522, 531-532, 539 

WindowMakerMasterlcon, 398, 405, 431-435, 
449, 522-524, 532-533, 540 


WindowMakerMasterlconController, 410-413, 
438, 445, 451, 512-520 


WindowMakerMenulcon, 405, 468, 483-484, 
526-527, 534-535, 541 


WindowMakerPicturelcon, 469, 485, 529-530, 
542 


WindowMakerSwitchlicon, 409, 469, 484-485, 
528-529, 537, 542-543 


WindowMakerSwitchAndPicturelcon, 408, 
486, 537-538, 543 


WindowMakerSwitchOrPicturelcon, 407-408, 
454-455, 484, 535-536, 541 


WindowMakerTextlcon, 405, 468, 483, 524- 
526, 534, 540-541 
Window maker, 341-488 
extended views, 358-387 
form libraries, 341-358 
window maker classes, 387-487 
Window management, 11, 36-45 
detailed protocol, 36-44 
introduction, 11 
projects, 37 
scheduled versus unscheduled, 37 
starting up versus opening, 44-45 
Window transformations 
see Transformations 
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